Indy freeze Problem

[Novo]

hmm was ist da falsch?

Delphi-Quellcode:

function ThreadedHTTP(URL:string):string;
var
  Thttp : TidHTTP;
  QuellCode : string;
begin
  Thttp := TidHTTP.Create (nil);
   try
    QuellCode := Thttp.Get(URL);
   finally
    Thttp.Free;
    result := QuellCode;
  End
End;

und dann:

Delphi-Quellcode:

QuellCodeTechnobase := ThreadedHTTP('http://www.technobase.fm');
application.ProcessMessages;
QuellCodeTrancebase := ThreadedHTTP('http://www.trancebase.fm');
application.ProcessMessages;
QuellCodeHardbase := ThreadedHTTP('http://www.hardbase.fm');
application.ProcessMessages;
QuellCodeHousetime := ThreadedHTTP('http://www.housetime.fm');

[Meflin]

Nix is falsch. Nur falls du denkst, dass das jetzt "threaded" ist, dann liegst du falsch :roll:

[Novo]

Zitat:

Zitat von Meflin

Nix is falsch. Nur falls du denkst, dass das jetzt "threaded" ist, dann liegst du falsch :roll:

aha xD und wie sieht es aus, wenn das Threaded ist?

[Meflin]

Zitat:

Zitat von Novo

aha xD und wie sieht es aus, wenn das Threaded ist?

z.B. so: http://www.delphipraxis.net/internal...002714#1002714 :gruebel:

[Luckie]

Also ich weiß nicht wo das Problem ist. Du erstellst eine Thread-Klasse von TThread abgeleitet. Dieser fügst du ein neues Property URL hinzu. In der Execute-Methode erstellst du die Indy-Komponente und gibst sie am Ende wieder frei:

Delphi-Quellcode:

unit Unit3;

interface

uses
  Classes;

type
  TDownloadThread = class(TThread)
  private
    { Private-Deklarationen }
    FURL: string;
    FCode: string;
    procedure ShowCode;
  public
    property URL: string read FURL write FURL;
  protected
    procedure Execute; override;
  end;

implementation

uses
  IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, Unit2;

{ TDownloadThread }

procedure TDownloadThread.Execute;
var
  IdHTTP: TIdHTTP;
begin
  IdHTTP := TIdHTTP.Create(nil);
  try
    FCode := IdHTTP.Get(URL);
  finally
    IdHTTP.Free;
  end;
  Synchronize(ShowCode);
end;

procedure TDownloadThread.ShowCode;
begin
  Form2.Memo1.Text := FCode;
end;

end.

Und der Aufruf:

Delphi-Quellcode:

uses
  Unit3;

procedure TForm2.Button1Click(Sender: TObject);
var
  DownloadThread: TDownloadThread;
begin
  DownloadThread := TDownloadThread.Create(True);
  DownloadThread.FreeOnTerminate := True;
  DownloadThread.URL := 'http://www.michael-puff.de';
  DownloadThread.Resume;
end;

Das sollte als Grundgerüst reichen. Das ganze kann man jetzt noch um eine Fortschrittsanzeige und die Möglichkeit das ganze abzubrechen erweitern.abzubrechen

[Novo]

Zitat:

Zitat von Luckie

Also ich weiß nicht wo das Problem ist. Du erstellst eine Thread-Klasse von TThread abgeleitet. Dieser fügst du ein neues Property URL hinzu. Im Konstruktor des Threads erstellst du im Code deine Indy-Komponente und übergibst ihr die URL aus dem Property. Und im Destruktor des Threads gibst du die Komponent wieder frei.

Habe ich doch, aber es freezed trotzdem die Form!

[Luckie]

Hast du ein Glück, dass ich nicht schlafen kann. Im Anhang eine lauffähige Demo inklusive Ereignissen. Bei mir friert da nichts ein. Einfriren tut es nur, wenn du andauernt Synchronize aufrufst, denn der Code wird dann im Kontext des Hauptthreads ausgeführt und gerade das wollen wir ja nicht. aLSO Synchronize nicht zu häufig aufrufen.

[Meflin]

Zitat:

Zitat von Novo

Habe ich doch, aber es freezed trotzdem die Form!

Ach echt, hast du? Wo genau in dienem Code kommt denn das Wort TThread vor :wall:

[Novo]

Zitat:

Zitat von Meflin

Zitat:

Zitat von Novo

Habe ich doch, aber es freezed trotzdem die Form!

Ach echt, hast du? Wo genau in dienem Code kommt denn das Wort TThread vor :wall:

ööh ... xD

Zitat:

Zitat von Luckie

Hast du ein Glück, dass ich nicht schlafen kann. Im Anhang eine lauffähige Demo inklusive Ereignissen. Bei mir friert da nichts ein. Einfriren tut es nur, wenn du andauernt Synchronize aufrufst, denn der Code wird dann im Kontext des Hauptthreads ausgeführt und gerade das wollen wir ja nicht. aLSO Synchronize nicht zu häufig aufrufen.

ah THX!
SO muss des aussehen, ja ne jetzt tuts auch danke!