Entwickler-Ecke

Internet / Netzwerk - Upload einer texdatei auf einen ftpserver


SebTheRipper - Sa 01.03.03 00:32
Titel: Upload einer texdatei auf einen ftpserver
Hallo leute!

Ich habe ein Problem/siehe Topic
Zum Download einer textdatei habe ich folgende procedure verwendet:


Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
procedure TForm1.Downloaden(Sender: TObject); 
var Datei,Ziel:PChar; 
begin 
try 
  Datei := 'Quelldatei als URL'; 
  Ziel := 'Zieldatei absolut oder relativ'; 
  UrlDownloadToFile(nil, Datei, Ziel, 0, nil);
except 
  showmessage('Download abgebrochen'); 
end; 
  memo1.Lines.LoadFromFile('Zieldatei absolut oder relativ'); 
end;


gibt es einen ähnlichen befehl wie UrlDownloadToFile(...) wie zb.: UrlUploadToFile(...) ?

ps: bitte incl. zusätzliche USES!

Wäre sehr gut wenn das einer wüsste!

SebTheRipper


derDoc - Sa 01.03.03 09:30

Du kannst es mit einer TNMFTP-Komponente versuchen, die hat die

Quelltext
1:
procedure Upload(LocalFile, RemoteFile: string);                    

Damit kannst du auch Dateien hochladen. Wenn du das trotzdem ohne Komponente machen willst, schau dir doch mal den Quelltext dieser procedure an und hohl dir ein paar Anregungen.


toms - Sa 01.03.03 10:07

Zitat:
gibt es einen ähnlichen befehl wie UrlDownloadToFile(...) wie zb.: UrlUploadToFile(...) ?


InternetWriteFile


SebTheRipper - Mo 03.03.03 00:17

hmm, da scheinen wiederum uses zu fehlen!! bei mir kommt der fehler undefinierter bezeichner!
wäre nett wenn du mir uses und vielleicht eine procedure wie die obrige um download für den upload nennen könntest!! bin immerhin noch ein anfänger!

SebTheRipper


derDoc - Mo 03.03.03 00:20

Füg der uses-Klausel einfach WinInet hinzu.


SebTheRipper - Mi 05.03.03 23:23
Titel: ???
schon wieder was, mag euch vielleicht simpel vorkommen, hab aber da noch nich so den plan!
also: den befehl kennt er jetzt soweit so gut:
was muss hinter der procedure in klammern stehen
wenns geht so: zb: internetwritefile(datei,ziel....);
was muss da in die klammern! ich öfnne mit meinem prog keine verbindung(als anmerkung)

SebTheRipper