Fileupload verschnellern bzw mehrere gleichzeitig!

[Die Muhkuh]

Hi,

auf die schnelle fiel mir das hier ein:

Delphi-Quellcode:

TUploadThread = class(TThread)
  private
    FLocalFileName: String;
    FAToURL: String;
  protected
    procedure Execute; override;
  public
    constructor Create(const LocalFileName: String; const AToURL: String);
  end;

implementation

{ TUploadThread }

constructor TUploadThread.Create(const LocalFileName: String; const AToURL: String);
begin
  FLocalFileName := LocalFileName;
  FAToURL := AToURL;
end;

procedure TUploadThread.Execute;
var
  IdHTTP: TIdHTTP;
  picture: TIdMultiPartFormDataStream;
begin
  IdHTTP := TIdHTTP.Create(nil);
  picture := TIdMultiPartFormDataStream.Create;

  try
    IdHTTP.Request.ContentType := 'multipart/form-data';

    picture.AddFile('bild0', FLocalFileName, 'image/jpeg');

    try
      IdHTTP.Post(FAToURL, picture);
    except
      on E: Exception do
        raise Exception.Create('Fehler: ' + E.Message);
    end;
  finally
    IdHTTP.Free;
    picture.Free;
  end;

  Terminate;
end;

// Aufrufbeispiel

var
  UploadThread: TUploadThread;
begin
  UploadThread := TUploadThread.Create('C:\Test.jpg', 'www.blubb.de/ladmichhoch.php');
  UploadThread.FreeOnTerminate := true;
end;

Ich hab jetzt nicht alles aus deinem Code übernommen, aber ich denke, dass du das Prinzip verstehst (selbst, wenn mein Code jetzt nicht funktioniert)