Hallo,
ich übertrage lokale Dateien auf meinen
FTP Server.
Dafür verwende ich die "FTPPutFile"-Funktion aus WinInet.
Die Funktion rufe ich sequentiell für alle relevanten Dateien (17) auf.
Delphi-Quellcode:
function FTPUpLoad(pMyHomeFile, pMyRemoteFile : pchar) : boolean;
begin
if FTPPutFile(hFTPSession, pMyHomeFile, pMyRemoteFile, FTP_TRANSFER_TYPE_BINARY, 1)
then result := true
else result := false;
Application.ProcessMessages;
end;
Den Status der Übertragung fange ich ab mit
Delphi-Quellcode:
procedure StatusCallback(hInet: HINTERNET; Context, Status: DWORD; pInformation: Pointer; InfoLength: DWORD);
stdcall;
// Rückgabewerte der FTP-Aktionen
var s :
string;
begin
s := '
';
if (Status = INTERNET_STATUS_REQUEST_SENT)
then
begin
iUpLoadedFileSize := iUpLoadedFileSize + Integer(pInformation^);
s := '
Bisher wurden ' + formatIntValue(iUpLoadedFileSize) + '
Byte übertragen.';
end;
if (s <> '
')
then
begin
frm_load_firmware.lb_status.caption := s;
frm_load_firmware.GaugeProgress.Progress := iUpLoadedFileSize;
end;
end;
Klappt meistens gut.
Nun habe ich einige Rechner (XP Pro - Dual Core) auf denen das Programm einsetzt werden soll.
Dort überträgt er nur die erste Datei aber braucht dafür schon ewig und bricht dann ab.
Wenn ich das gleiche
FTP-Ziel von meinem Entwicklungsrechner anspreche klappt alles wunderbar.
Ich habe schon mal Testweise versucht das Programm bim Start auf nur einen Core zuzuweisen, hat aber nicht geholfen.
Ich wäre sehr dankbar für eine Iddee.
Gruß Holger.
