Datei (herauf)laden bei nem FTP

[toredo]

hallo,

kann mir hier jemand sagen wie man mit delphi dateien von einem ftp laden kann oder auch heraufladen kann?

mfG toredo

[ErazerZ]

der nonVCL weg wäre
uses WinInet; http://www.cryer.co.uk/brian/delphi/wininet.htm
Auf der seite findest Dokumentierte hilfen zu WinInet, also kannst leicht nen FTP Client machen . Was du lediglich für Upload / Download brauchst ist:

Delphi-Quellcode:

InternetOpen
InternetConnect
FtpPutFile
FtpGetFile
InternetCloseHandle

und ja natürlich gibts einfachere wege mittels VCL Komponente, von Indy oder was auch immer.

[toredo]

Zitat von ErazerZ:

Was du lediglich für Upload / Download brauchst ist:

Delphi-Quellcode:

InternetOpen
InternetConnect
FtpPutFile
FtpGetFile
InternetCloseHandle

und ja natürlich gibts einfachere wege mittels VCL Komponente, von Indy oder was auch immer.

das genügt mir schon, danke



mfG toredo

-edit-

kann mir bitte noch mal shcnell jemand helfen:
hat jemand ein bsp für InternetConnect wil da versteh ich bei einigen parametern nicht was man da reinschreiben muss.


mfG toredo

[Luckie]

Wie wäre es mit den Indy FTP Komponenten?

[toredo]

hm, mal schauen, eigentlich sollte es ja nur klein gehalten werden und darum möchte ich nicht indy installieren, und auch wiel ich nicht mehr allzuviel spoeicher habe, wenn es aber einfacher ist, dann werd ich es vielleicht mal machen.

ich will ja nur machen, dass eine datei heraufgeladen wird, und von einer anderen exe wird sie heruntergeladen...


mfG toredo

[SirThornberry]

wenn du tatsächlich, wie im Profil angegeben, Delphi7 Enterprice hast ist Indy bereits installiert.

[toredo]

ok, das klingt schonmal gut ,
aber gibts irgendwo ein tut oder so zu dieser FTP-komponente, ich hab da nämlich kp wie ich anfangen soll.



mfG toredo

[ErazerZ]

Delphi-Quellcode:

function putfile(server, username, password, localfile, remotefile: string; port: word = 21): boolean;
var
  hopen, hconnect: HINTERNET;
begin
  hopen := InternetOpen('myagent', INTERNET_OPEN_TYPE_DIRECT, nil, nil, 0);
  hconnect := InternetConnect(hopen, pchar(server), port, pchar(username), pchar(password), INTERNET_SERVICE_FTP, INTERNET_FLAG_PASSIVE, 0);
  Result := FtpPutFile(hconnect, pchar(localfile), pchar(remotefile), FTP_TRANSFER_TYPE_UNKNOWN, 0);
  InternetCloseHandle(hconnect);
end;

[capo]

hi

was bedeutet?
InternetOpen('myagent', INTERNET_OPEN_TYPE_DIRECT, nil, nil, 0); gruss, capo