[
OT]Autsch[/
OT]
Ich nehme zwar kein
FTP, sondern http... Aber die Funktionalität ist ja fast die selbe...
Delphi-Quellcode:
Procedure Foo;
var
URL, Dateiname :
String;
begin
URL := '
Http://www.meinserver.de/Datei.png';
Dateiname := '
C:\Hierhin\Datei.png';
lThread := TAnonymousThread<boolean>.Create(
function: boolean
var
idhttp : TidHttp;
FS : TFileStream;
DN :
String;
begin
DN := Dateiname;
result := true;
if not(fileExists(DN))
then
begin
FS := TFileStream.Create(DN,fmCreate);
try
idhttp := Tidhttp.Create;
try
idhttp.Get(
URL,FS);
finally
idhttp.Free;
end;
finally
FS.Free;
end;
end;
end,
procedure(AResult: Boolean)
begin
end,
procedure(AException:
Exception)
begin
//Runs in main thread
//ShowMessage(AException.Message);
end);
end;
Mavarik
Also will mich jetzt wirklich nicht quer stellen. Aber wo hast du nun diesen Code drinn? In dem neuen Thread? oder auf der zB Form1?