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 ?