[*]Profan

Français

Falk
Fallenstein

qui Funktion
handle& = @Créer(«PCSI»,0,"&CLPBMP") ist très hilfreich, um Bilder aus anderen Programmen trop prendre. si sich cependant dans qui aktuellen Zwischenablage aucun Bitmap, mais irgend autre chose est, merke je cela seulement, si je avec diesem "angeblichen Bild" plus travailler veux, z.B. avec SavePic un album$,handle&,... ou bien DrawPic handle&,... usw. qui Créer-Funktion scheint selber aucun abfragbare Fehlerbedingung trop erzeugen, c'est pourquoi peux je cela Problem seulement par qui Folgefehler eingrenzen bzw. intercepter. Pour une schlanke, übersichtliche Programmation wäre es joli, si on den Erfolg qui dessus genannten Funktion unmittelbar pour en Aufruf überprüfen pourrait - z.B. avec einer speziellen Système.

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

18.11.2009 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

%bmpx

18.11.2009 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Falk
Fallenstein

habe je déjà probiert. qui Bilder hätten donc galaktische Größen - avec 0 x 0 pixels hätte es mir comme Kriterium gereicht

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

18.11.2009 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Christian
Schneider

peut-être klappts oui per API:

GetClipboardData-Funktion (MSDN): [...]

Clipboard-Formate (MSDN): [...]

Beispiel dans VB: [...]

XProfan 11| Vista(64) SP2

18.11.2009 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

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

19.11.2009 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

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

19.11.2009 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

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

19.11.2009 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Christian
Schneider

Frabbing, Beitrag=55027, Zeitpunkt=19.11.2009

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

19.11.2009 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

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

20.11.2009 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

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.

20.11.2009 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

RGH

Falk Fallenstein, Beitrag=55018, Zeitpunkt=18.11.2009

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

20.11.2009 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

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

20.11.2009 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

►