[*]Profan

- Page 1 -

Falk
Fallenstein

with "0 x 0 pixels" meant I naturally erfolgloser, d.h. fehlerbehafteter Funktionsaufruf. too The Überprüfung the zurückgelieferten lever-number helps not further, the are any x-beliebigen numbers, The on no really definierten Objects in the main memory show - therefore lead tappt im dunkeln yes to whom 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

thanks, Christian, for your suggestions. I have me The Verweise short respected and feel, that it it so sure goes (and one yet plenty longer the Clipboard can make). but into details goes it with my bescheidenen Programmierkentnissen far over my horizon out

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

Have something zusammengebastelt:
Compile Mark Separation

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

If the Clipboard one Image contains gives ClipIsPic 1, unless 0 back.

XProfan 11| Vista(64) SP2

Frabbing, Beitrag=55027, Zeitpunkt=19.11.2009

Christian
Schneider

plainer is:
Compile Mark Separation

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

from: [...]

XProfan 11| Vista(64) SP2

Falk
Fallenstein

terrific, Christian!
very the, I need and sooooo simply - hold known How ;)
Compile Mark Separation

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

the would have imho for people yet plainer make can - serverside. ^^

inserts Member a http-URL with of/ one Bildadresse in that Posting-Input one ("Bildadresse kopieren" becomes of Browser likewise offered), then simply the image by (php) file_get_contents loading and on Server take off and the Bildadresse in entsprechendes <img wandeln.

but alike How, has everything his good.

Falk Fallenstein, Beitrag=55018, Zeitpunkt=18.11.2009

RGH

The function
handle& = @Create("HPIC",0,"&CLPBMP") is very helpful, circa Images from others Programs To take. ... The Create-function shining yourself no abfragbare Fehlerbedingung To produce

Hi,

the Result the function (in the Erfolgsfall the lever the Bitmap) ought to in this drop 0 his and so intimate, that The Bitmap not created go could. Also ought to a warning aufpoppen, that The Bitmap not ladbar is.

Greeting
Roland

Nachtrag: Arrghh ... I had objectively forget, whom Return Value To initialisieren. in the nächtsten Version functions it How planned.

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

... simply the image by (php) file_get_contents loading and on Server take off and the Bildadresse ... wandeln ...

Yes, sound simply, is it for me but not, because I know me with PHP unfortunately not from *schäm*

Also white I do not, whether the Server, from the the Original-Image comes, with a such grabbed the image too really hergibt (block external Bilderlinks, see my remark moreover supra). with the of me angestrebten Solution would already time ensured, that the image pub on the computer the Mitglieds present is and of there To my Server übetragen go can. as Admin point so did i over ands over again hereon there, a short Quellenangabe for extern loaded Images possible not To forget.

Roland

the Result the function (in the Erfolgsfall the lever the Bitmap) ought to in this drop 0 his ...

so have I it me too pictured and To allererst ausprobiert - with others create("HPIC" ...) functions functions it Yes.

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

The Solution with the request the Type the Clipboard to the Zugriffsversuch is naturally yet plenty eleganter, because so can I ggf. a Fehlersituation and the suitable Fehlerbehandlung avoid.

naturally observe I, I me with conscience windows-Interna (z.B. user32.dll !!!) more in detail befassen ought to. but here be I really one blutiger Beginner and as End-Sechziger make I me too no illusions, yet correctly. deeply into matter get in to. nevertheless: many cordial Thanks on David, Christian and Roland, that your you so quick and helpful circa my border gekümmert have.

for my small proposition must I yet The routines for FTP-Upload the Images write. The Vorversuche for walk very well.

P.s.
Q: what found I well, as i Profan² to that first time gotten to know have?
A: Dass it with dBase III Files bypass could (find I still well).

Q: what has me moreover bewogen, me with the new versions of XProfan to befassen?
A: Dass it with the WWW-usual Bildformaten bypass can and
that it any important functions for FTP in simply nachvollziehbarer point supported.

Q: what would I me in the momentum otherwise yet wish?
A: Very beautiful would it, if The Algorithms for the "resizing" of Bitmaps something ausgefeilter wären. particularly with starker Verkleinerung great Images with really guter quality come into being very grobkörnige, "pixelige" copies (cue: Erzeugung of Thumbnails for 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

11/21/09 ▲

"Resizing" knows usually no "Qualität", but Resampling - could one sure GDIPlus for take or (z.B. too serverside) ImageQuick. (have but ldr. none code parat)

i'd me well a Own Resample-function write, if you interest have simply moreover again (vlt. in sep. Thread) report.

11/22/09 ▲

Frank
Abbing

The quality the Resizing lying naturally on the Stretchmodus, must only whom right for HDC on... ~SetStretchBltMode(%hdc,~HALFTONE)

11/22/09 ▲

Falk
Fallenstein

thanks, Frabbing, for this Info. now goes it for me ans potted. first Erläuterungen to that understanding found I here [...]

How the now correctly. into XProfan-Program incorporate is, must I yet find out.

P.s. (on whom Moderator)
The compliance the actual Wunsches at the beginning this Threads (Bitmap Clipboard call for) has Roland with his response already in prospect set. so could IMHO this Thread too as Done count.

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

11/22/09 ▲