Problem bei der Dateiübertragung mit WinInetFunktionen

[little_budda]

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.