FTP frage

[Larsi]

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;

Delphi-Quellcode:

putfile('ftp:\xxxx', 'xxx', 'xxx', 'C:\Datei.txt', '/Datei.txt');

So sieht der ftp-upload aus. kann ich die connection eigentlich schließen mit irgendnem befehl???
Also wenn ich die grad hochgeladene textdatei mit ner anderen procedure widerdownloade klappt das zwar beim ersten versuch, aber wenn ich dann einen andern text uploade und den dann wieder downloade bleibt das immer der vom ersten mal. wenn ich zwischen durch, das fenster schließe gehts, aber ich möchte jez nicht nach jedem upload das fennster schließen wollen, also war jez meine frag ob des daran liegt, dass man den upload noch irgendwie beednen muss, wenn ja, wie?

MFG Larsi

[Larsi]

kann mir denn keiner helfen?????

[dominikkv]

omg das waren grade mal 13 minuten... lass uns doch mal zeit nachzudenken^^
und pushs sind erst nach 24 stunden erlaubt! :warn:

[Muetze1]

Zitat:

Zitat von MSDN: FtpPutFile()

This function is a high-level routine that handles all the bookkeeping and overhead associated with reading a file locally and storing it on an FTP server. An application that needs to send file data only, or that requires close control over the file transfer, should use the FtpOpenFile and InternetWriteFile functions.

[Larsi]

Hä :oops:
mit Englisch hab ichs net so.
aber gemeint war doch, das man das erst wieder schließen muss und wie geht das verbindung schließen

[Muetze1]

Zitat:

Zitat von Larsi

Hä :oops:
mit Englisch hab ichs net so.

Aber nach 13 Minuten nach einer Antwort drängeln - sowas haben wir gerne...

Die Verbindung schließt du schon, aber die Session lässt du offen. Es fehlt noch ein

Delphi-Quellcode:

InternetCloseHandle(hopen);

am Ende oder InternetOpen() und InternetCloseHandle() ganz ausserhalb.

[Larsi]

thx. sry, aber hats grad echt eilig!


MFG Larsi

[Larsi]

sry aber ich kriegs immer noch net hin, also muss ich das:

Delphi-Quellcode:

InternetCloseHandle(hopen);

jez in die

Delphi-Quellcode:

function putfile(server, username, password, localfile, remotefile: string; port: word = 21): boolean;

reinschreiben oder in die button procedure???

[dominikkv]

naja, da wo hopen auch deklariert ist.