Forum: Netzwerke
Delphi
by horst,
3. Feb 2004
ich habs ;)
procedure TForm1.DateienausdemInternetdownloaden1Click(Sender: TObject);
var
SourceFile, DestFile, Source: string;
i, j: integer;
s: string;
begin
for i := 0 to memo3.lines.count - 1 do
begin
Forum: Netzwerke
Delphi
by horst,
3. Feb 2004
hmmm...stimmt, ich muss das ausprobieren, du hast mir super weitergeholfen, danke.
Forum: Netzwerke
Delphi
by horst,
3. Feb 2004
Hallo ...
Mit dem Beispiel unten kann ich eine Datei aus dem Internet laden.
Wie kann ich damit 4 oder 5 Dateien laden, liegen auf dem gleichen Server?
Wer mag mir helfen?
function DownloadFile(SourceFile, DestFile: string): Boolean;
begin
try
Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0;
except
Result := False;