DROP Image Url vom Browser

[H3llsing]

Morgen zusammen

ich hab mitlerweile ne stunde gesucht und bin nicht fündig geworden, und das bei der Masse an Drag & Drop Themen, die es hier gibt.

ok zu meinem problem: ich wollte mir gern eine eigene Komponente schreiben, in der man ein Image aus dem Web (Firefox IE etc) auf ein Timage zieht. Das klappt auch schon wunderbar mit einem Panel dessen handle ich nehme und ein Timage darauf plaziere.

Nun möchte ich aber auch gerne die Online URL des Bildes in einem Edit anzeigen. Leider gibt mir die Funktion nur den temporären Pfad des bildes aus :/

hier die Drop funktion

Delphi-Quellcode:

procedure TDropPanel.FWM_DropFiles(var Msg: TMessage);
var i, anzahl, size: integer;
    Dateiname: String;
    antwort: Integer;
begin
  inherited;
  Dateiname := '';
  anzahl := DragQueryFile(Msg.WParam, $FFFFFFFF, nil, 0); 
  for i := 0 to (anzahl - 1) do
  begin
    size := DragQueryFile(Msg.WParam, i , nil, 0) + 1;
    SetLength(Dateiname, size);
    SetLength(Dateiname, DragQueryFile(Msg.WParam,i , @Dateiname[1], size));
    //hier dein source - in "Dateiname" ist der name des droped objectes

    getPicture(dateiname,targetimage);
  end;
end;

habt ihr eine Idee wie man die Url des Webbildes herausbekommt ?

[lbccaleb]

Vllt kann dir das weiter helfen:

Text Drag Drop

[H3llsing]

VIELEN DANK!

deine Testprog erzielt den gewünschten effekt!
Werd es mir mal genauer anschaun und in die komponente integrieren =)

[H3llsing]

Ich bräuchte nochmal ein wenig Hilfe.

ich habe eine Komponente die vom Tpanel abgeleitet ist.
dieser habe ich noch ein TargetEdit,TargetListbox und TargetImage hinzugefügt.

wenn man nun etwas aufs Panel Droppt, füllt er das jeweilige control mit string oder zeigt das bild an. Dass passiert mit der WM_DROPFILES funktion.

nun möchte ich allerdings
diese Unit von lbccaleb
in die komponente mit einbeziehen, damit ich bei Drop statt die tempURL die OnlineURL des bildes in die controles schreiben kann.

Wie realisier ich das ganze ?!
hab schon etliche probelaufe durch und mir ist das ganze komponenten schreiben recht neu.

Wäre für jede hilfe dankbar !

[Andreas L.]

Verwende einfach "The Drag and Drop Component Suite for Delphi":

http://melander.dk/delphi/dragdrop/

[H3llsing]

die hab ich bereits installiert.
Allerdings habe ich es dort auch nicht geschafft bei einem einzigen Image drop aus dem explorer die URL in einem bestimmten Edit anzeigen zu lassen und gleichzeitig das image in ein TImage zu setzten.

es funktioniert nur wenn man die Quelle genau über das Edit für die URL zum beispiel droppt, oder über dem Timage bzw dem drunterliegendem Panel für das Image. Aber nicht Beides Gleichzeitig!

Wenn du dafür ne Lösung parat hast nehme ich die auch gerne =)