[*]Profan

- page 1 -

Falk
Fallenstein

avec "0 x 0 pixels" meinte je naturellement erfolgloser, d.h. fehlerbehafteter Funktionsaufruf. aussi qui Überprüfung qui zurückgelieferten Handle-numéro hilft pas plus, ce sont irgendwelche x-beliebigen payons, qui sur aucun wirklich definierten Objekte im Arbeitsspeicher montrer - c'est pourquoi mener vous Oui pour den erwähnten Folgefehlern.

Strategien im Vergleich:
Microsoft: der Computer macht mit Dir, was er will ...
XProfan: der Computer macht, was Du von ihm willst.

XProfan 11, Windows XP (1.5 GByte RAM), XProfEd

Falk
Fallenstein

merci, Christian, pour Votre Anregungen. j'ai mir qui Verweise kurz angesehen et fühle, dass es es avec cela sûrement allez (et on encore viel plus avec qui Zwischenablage faire peux). mais dans den Details ca va chez meinen bescheidenen Programmierkentnissen large sur meinen Horizont hinaus

Strategien im Vergleich:
Microsoft: der Computer macht mit Dir, was er will ...
XProfan: der Computer macht, was Du von ihm willst.

XProfan 11, Windows XP (1.5 GByte RAM), XProfEd

Christian
Schneider

Hab la fois quoi zusammengebastelt:
Kompilieren Marque Séparation

Def OpenClipboard(1) !"USER32","OpenClipboard"
Def CloseClipBoard(0) !"USER32","CloseClipboard"
Def GetClipboardData(1) !"user32.dll","GetClipboardData"

Proc ClipIsPic

    Declare Cboard_return&

    IF OpenClipBoard(GetActiveWindow()) <> 0 erfolgreich geöffnet?

        Cboard_return&=GetClipboardData(2) Parameter 2 = Bild erwartet | 1 wäre Text
        CloseClipBoard()

    EndIF

    If Cboard_return& <> 0 Wert ungleich 0 = Wahr

        Return 1

    Else

        Return 0

    EndIF

EndProc

CLS
Print ClipIsPic() 1 = Bild, 0 = Kein Bild
Waitinput

si qui Zwischenablage un Bild contient gibt ClipIsPic 1, si pas 0 zurück.

XProfan 11| Vista(64) SP2

Frabbing, Beitrag=55027, Zeitpunkt=19.11.2009

Christian
Schneider

Einfacher ist:
Kompilieren Marque Séparation

Def IsClipFormat(1) !"USER32","IsClipboardFormatAvailable"
Print IsClipFormat(1) Text
Print IsClipFormat(2) Bildre>

aus: [...]

XProfan 11| Vista(64) SP2

Falk
Fallenstein

Fantastisch, Christian!
oui c'est ca cela, quoi il me faut et sooooo simple - arrêt gewusst comment ;)
Kompilieren Marque Séparation

Gemerkt/Separiert von http://xprofan.com/thread.core?t=7937
Def IsClipFormat(1) !"USER32","IsClipboardFormatAvailable"
declare h0&
cls

if IsClipFormat(2)Bild

    h0&=create("hPic",0,"&CLPBMP")
    hier weitermachen, z.B.
    drawpic h0&,0,0;0

else

    hier auf den Fehler hinweisen, z.B.
    print "no image in the clipboard - please try again ..."

endif

Strategien im Vergleich:
Microsoft: der Computer macht mit Dir, was er will ...
XProfan: der Computer macht, was Du von ihm willst.

XProfan 11, Windows XP (1.5 GByte RAM), XProfEd

cela hättest imho pour qui gens encore einfacher faire peut - serverseitig. ^ ^

Fügt un Mitglied une http-URL avec einer Bildadresse ins Posting-Eingabefeld un ("Bildadresse kopieren" wird vom Browser ebenso angeboten), ensuite simple cela Bild per (php) file_get_contents magasin et sur Server enlever et qui Bildadresse dans entsprechendes <Img wandeln.

mais égal comment, hat alles son Gutes.

Falk Fallenstein, Beitrag=55018, Zeitpunkt=18.11.2009

RGH

qui Funktion
handle& = @Créer(«PCSI»,0,"&CLPBMP") ist très hilfreich, um Bilder aus anderen Programmen trop prendre. ... qui Créer-Funktion scheint selber aucun abfragbare Fehlerbedingung trop erzeugen

Salut,

cela Ergebnis qui Funktion (im Erfolgsfall cela Handle qui Bitmap) sollte dans diesem le cas 0 son et avec cela andeuten, dass qui Bitmap pas erzeugt volonté konnte. Aussi sollte une avertissement aufpoppen, dass qui Bitmap pas ladbar ist.

Salut
Roland

Nachtrag: Arrghh ... je hatte réellement oublier qc, den Rückgabewert trop initialisieren. dans qui nächtsten Version funktioniert es comment geplant.

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

Falk
Fallenstein

... simple cela Bild per (php) file_get_contents magasin et sur Server enlever et qui Bildadresse ... wandeln ...

oui, klingt simple, ist es pour mich mais pas, car je connais mich avec PHP malheureusement pas aus *schäm*

Aussi sais je pas, si qui Server, de dem cela Original-Bild venez, avec einem solchen Zugriff cela Bild aussi wirklich hergibt (Sperre externer Bilderlinks, siehe mon Bemerkung plus dessus). avec qui de mir angestrebten Solution wäre déjà la fois sichergestellt, dass cela Bild bistrot sur dem calculateur des Mitglieds vorhanden ist et de là trop meinem Server übetragen volonté peux. comme Admin weise je De toute façon wieder puis hin, une kurze Quellenangabe pour extern geladene Bilder possible pas trop oublier qc.

Roland

cela Ergebnis qui Funktion (im Erfolgsfall cela Handle qui Bitmap) sollte dans diesem le cas 0 son ...

so habe je es mir aussi vorgestellt et trop allererst ausprobiert - chez anderen create(«PCSI» ...) Funktionen funktioniert es oui.

Strategien im Vergleich:
Microsoft: der Computer macht mit Dir, was er will ...
XProfan: der Computer macht, was Du von ihm willst.

XProfan 11, Windows XP (1.5 GByte RAM), XProfEd

- page 2 -

Falk
Fallenstein

qui Solution avec qui Abfrage qui Typs qui Zwischenablage avant dem Zugriffsversuch ist naturellement encore viel eleganter, car so peux je ggf. une Fehlersituation et qui entsprechende Fehlerbehandlung vermeiden.

Bien sûr merke je, dass je mich avec gewissen Windows-Interna (z.B. user32.dll !!!) eingehender befassen sollte. mais ici suis je wirklich un blutiger Débutant et comme Fin-Sechziger fais je mir aussi aucun Illusionen, encore richtig tief dans qui substance monter trop peut. toutefois: vielen herzlichen Dank à David, Christian et Roland, dass son euch so vite et hilfreich um mon Anliegen gekümmert avez.

Pour mon kleines projet muss je maintenant encore qui Routinen pour den FTP-Upload qui Bilder écrivons. qui Vorversuche pour courir très bien.

P.S.
Q: quoi fand je bien, comme je Profan² zum erstem la fois kennengelernt habe?
A: Dass es avec dBase III Fichiers tourner autour de konnte (find je toujours bien).

Q: quoi hat mich en supplément bewogen, mich avec den neuen Versionen de XProfan trop befassen?
A: Dass es avec den WWW-habituel Bildformaten tourner autour de peux et
dass es alle wichtigen Funktionen pour FTP dans simple nachvollziehbarer Weise soutenu.

Q: quoi serait je mir im Moment sonst encore désirer?
A: très joli wäre es, si le Algorithmen pour cela "resizing" de Bitmaps quelque chose ausgefeilter wären. Insbesondere chez starker Verkleinerung großer Bilder avec eigentlich bon la qualité entstehen très grobkörnige, "pixelige" Kopien (Stichwort: Erzeugung de Thumbnails pour Bildersammlungen).

Strategien im Vergleich:
Microsoft: der Computer macht mit Dir, was er will ...
XProfan: der Computer macht, was Du von ihm willst.

XProfan 11, Windows XP (1.5 GByte RAM), XProfEd

21.11.2009 ▲

"Resizing" kennt normalement aucun "Qualität", mais Resampling - pourrait on sûrement GDIPlus pour prendre ou bien (z.B. aussi serverseitig) ImageQuick. (habe mais ldr. keinen Code prêt)

je serait mir wohl une eigene Resample-Funktion écrivons, si Du intérêt la hâte simple en supplément nochmal (vlt. dans sep. Fil) annoncer.

22.11.2009 ▲

Frank
Abbing

qui la qualité des Resizing liegt naturellement am Stretchmodus, Musst seulement den richtigen pour den HDC einschalten... ~SetStretchBltMode(%hdc,~HALFTONE)

22.11.2009 ▲

Falk
Fallenstein

merci, Frabbing, pour cette Hinweis. maintenant ca va pour mich à l' Eingemachte. Erste Erläuterungen zum Verständnis fand je ici [...]

comment cela eh bien richtig dans un XProfan-Programme einzubauen ist, muss je encore herausfinden.

P.S. (à den Moderator)
qui Erfüllung des réel Wunsches am Anfang cet Threads (Bitmap aus Zwischenablage venir chercher) hat Roland avec seiner Antwort déjà dans vue gestellt. avec cela pourrait IMHO cette Fil aussi comme erledigt gelten.

Strategien im Vergleich:
Microsoft: der Computer macht mit Dir, was er will ...
XProfan: der Computer macht, was Du von ihm willst.

XProfan 11, Windows XP (1.5 GByte RAM), XProfEd

22.11.2009 ▲