Threads - IdHTTP.Post sendet nicht

**Kolan**

Hello World...

Nach langer Zeit der "Abstinenz" darf ich mal wieder was mit Delphi machen und hab natürlich direkt ein Problem mit einer Datei-Uploadfunktion, die ich in einen Tread auslagern möchte.

Allgemeine Programminfo:
Ein paar Dateien werden gepackt, in einen Memorystream geladen und zusammen mit einer Ziel-URL im thread.create übergeben.
Da Threads für mich auch nicht alltäglich waren hab ich mich erstmal an das hier im Forum oft genannte

Tutorial gehalten, nun aber das Problem, dass der Thread scheinbar korrekt ausgeführt wird, sich jedoch am Post des IdHTTP ohne Meldung aufhängt.

Wäre schön, wenn sich das jemand anschauen und mir weiterhelfen könnte - ich geh sehr stark davon aus, dass ich irgendeinen blöden Anfängerfehler gemacht habe

Start des Threads:

zusammenfalten · markieren

Delphi-Quellcode:

			[...]

    mstream := TMemoryStream.Create;

    mstream.LoadFromFile('data.zip');

    mstream.Position := 0;

    PostData := TIdMultiPartFormDataStream.Create;

    PostData.AddObject('data', 'zip', mstream, 'data.zip');

//    IdHTTP1.Post(url_upload, PostData);

//    Problemloses Senden der Daten ohne Thread, jedoch "einfrieren" der Application

    SendThread := TSendThread.Create(url_upload, PostData);

[...]

und hier der (VCL) Thread selber:

zusammenfalten · markieren

Delphi-Quellcode:

			unit Unit4;

interface

uses

  Classes {$IFDEF MSWINDOWS} , Windows {$ENDIF},

  IdMultiPartFormData, IdHTTP, IdComponent, Unit1;

type

  TSendThread = class(TThread)

    st_url,

    st_status : String;

    st_progress,

    st_size : Integer;

    st_data : TIdMultiPartFormDataStream;

    st_http : TidHTTP;

  private

  protected

    procedure Execute; override;

    procedure Sync;

  public

    constructor Create(url : String; data : TIdMultiPartFormDataStream);

  end;

implementation

{ SendThread }

procedure TSendThread.Sync;

begin

  Form1.Sync_SendThread(st_status, st_progress);

//  sleep(3000);

end;

constructor TSendThread.Create(url : String; data : TIdMultiPartFormDataStream);

begin

  st_http := TIdHTTP.Create(nil);

  st_url := url;

  st_data := TIdMultiPartFormDataStream.Create;

  st_data := data;

  st_status := 'Ready';

  Synchronize(Sync);

  inherited Create(false);

end;

procedure TSendThread.Execute;

begin

  st_status := 'starting...';

  Synchronize(Sync);

  sleep(2000);

  st_http.Post(st_url, st_data);

  st_status := 'sent';

  Synchronize(Sync);

end;

end.

Zu erwähnen wäre hier vielleicht noch, dass im Execute das st_status + Synchronize nicht mehr ausgeführt wird. Ohne das sleep würde der Thread sich beim st_http.Post direkt beenden, mit dem sleep seh ich wenigstens im Process Explorer dass er erstellt wird und sich kurz darauf wieder schliesst.

Besten Dank schonmal vorab

[edit - typos]

Threads - IdHTTP.Post sendet nicht

Threads - IdHTTP.Post sendet nicht

Forumregeln