FTP status anzeige

[1234588]

hallo community
ich hab hier eine funktion gefunden die es einem erleichtert einen upload einer datei zu realisieren. da ich im grunde nur eine datei habe die auf einen server muss, sehe ich es nicht ein zu den indys oder anderem zu greifen. da die datei von 100kb bis rund 5 mb groß sein kann, waere eine status anzeige ganz nett.
leider funktioniert das ganze nicht wie ich moechte.
(das beep() im callback dient nur zu testzwecken)

Delphi-Quellcode:

procedure StatusCallback(hInet: HINTERNET; Context, Status: DWORD; pInformation: Pointer; InfoLength: DWORD); stdcall;
begin
  beep(100, 100);
end;

function PutFile(server, username, password, localfile, remotefile: string; port: word = 21): boolean;
var
  hopen, hconnect: HINTERNET;
begin
  hopen := InternetOpen('test', INTERNET_OPEN_TYPE_DIRECT, nil, nil, 0);
  InternetSetStatusCallback(hopen, @StatusCallback);
  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;

ich freue mich ueber jede hilfe die mich ein steuck weit weiter bringt

[inherited]

Zitat von 1234588:

da ich im grunde nur eine datei habe die auf einen server muss, sehe ich es nicht ein zu den indys oder anderem zu greifen.

Und wieso nicht?

[1234588]

weil ich mein programm eigentlich weitgehend komponentenfrei halten wollte.

[inherited]

Sorry für die dummen Fragen, aber warum?
Du kannst die Komponente ja dynamisch erstellen wenn du sie brauchst.

[1234588]

weil ich alles nur noch mit meiner status anzeige verbinden muesste (ich verwende PROGRESS_CLASS), was kein großes problem darstellen sollte. das jetzt auf die indys umbauen waere viel mehr arbeit
mir waere das ganze ohne indy lieber, wenn mir aber keiner helfen kann bzw. mir niemand sagen kann was ich falsch mache, muss ich wohl alles umschreiben :'(

[fkerber]

Hi!

Zitat von 1234588:

leider funktioniert das ganze nicht wie ich moechte.

Was funktioniert denn nicht?
Bzw. inwiefern äußert sich das "geht nicht"?
Was hast du bisher versucht?


Ciao, Frederic

[1234588]

ich moechte eine status anzeige haben. ich habe in meiner callback() prozedur die moeglichkeit den fortschritt meines uploads auszulesen (so meine ich zumindest). normalerweise sollte beep() beim upload ausgeloest werden, was aber nicht passiert (beep() habe ich nur zu testzwecken). ich komm einfach nicht dahinter was ich falsch gemacht habe

[fkerber]

Hi!

Dann schau mal hier, was die Code-Lib zu bieten hat:
http://www.delphipraxis.net/internal...ct.php?t=88375

oder auch hier:
http://support.microsoft.com/kb/234913


Ciao, Frederic

[1234588]

ich denke das ich das umschreiben kann

vielen dank

(ich werde das umgeschriebene dann hier veroeffentlichen)

[Luckie]

Wer lesen kann ist klar im Vorteil:

Zitat:

Note The callback function specified in the lpfnInternetCallback parameter will not be called on asynchronous operations for the request handle when the dwContext parameter of HttpOpenRequest is set to zero (INTERNET_NO_CALLBACK), or the connection handle when the dwContext handle of InternetConnect is set to zero (INTERNET_NO_CALLBACK).