Threads!? Wie geht das?

**Neuni**

Auch schon probiert...das geht aber net

Zitat:

[Error] Unit1.pas(564): Incompatible types: 'TComponent' and 'TGetRemoteVersionThread'
[Fatal Error] Project1.dpr(6): Could not compile used unit 'Unit1.pas'

**Angel4585**

versuchs mal mit "nil" sollte gehen

**Neuni**

Hmm...immer noch alle 2 sek

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TGetRemoteVersionThread.UpdateCaption;

var new:string;

getit:Tidhttp;

begin

  with Form1 do

  begin

///

getit := Tidhttp.Create(nil);

//chat.Lines.Clear;

//new := idhttp1.Get(URL+'/admin.php?nick='+nick+'&pw='+pw+'&go=getchat'+'&casenick='+casenick+'&lastid='+lastid);

new := getit.get(URL+'/admin.php?nick='+nick+'&pw='+pw+'&go=getchat'+'&casenick='+casenick+'&lastid='+lastid);

new := StringReplace(new, '###', #13#10, [rfReplaceAll]);

if (new = '') OR (new = ' ') then begin

end else begin

chat.Lines.Add(new);

end;

lastid := getit.get(URL+'/admin.php?nick='+nick+'&pw='+pw+'&go=getlastid'+'&casenick='+casenick);

///

  end;

end;

// =============================================================================

procedure TGetRemoteVersionThread.Execute;

begin

      Synchronize(UpdateCaption);

end;

////////////////////////////////////////////////////////////////////

procedure TForm1.Timer2Timer(Sender: TObject);

var

  Thread: TGetRemoteVersionThread;

begin

  Thread := TGetRemoteVersionThread.Create(True);

  Thread.FreeOnTerminate := True;

  Thread.Resume;

  thread.DoTerminate;

end;

**ste_ett**

Da darfst den Text nicht im Syncronize()-Teil runterladen.

Warum erzeugst du TidHttp auf der Form?
Klar, dass das die Form mit "runterzieht".

Ändere die Struktur mal ein bisschen:

zusammenfalten · markieren

Delphi-Quellcode:

			TThreadName.Execute;

var

  sTemp: String;

  GetIt: TidHttp;

begin

// Runterladen im Thread

  GetIt.Create(nil);

  try

    sTemp := GetIt.Get('');

  finally

    GetIt.Free;

  end;

// Text aktualisieren auf der Form

  Syncronize(Update);

end;

**Neuni**

Hmm...irgendwie macht das "GetIt.Create(nil);" n Problem (siehe Anhang).

**ste_ett**

Bei mir geht's.
Zeig mal die komplette Execute-Prozedur.

**Neuni**

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TGetRemoteVersionThread.Execute;

var

  sTemp: String;

  GetIt: TidHttp;

begin

// Runterladen im Thread

  GetIt.Create(nil);

  try

new := getit.get(URL+'/admin.php?nick='+nick+'&pw='+pw+'&go=getchat'+'&casenick='+casenick+'&lastid='+lastid);

new := StringReplace(new, '###', #13#10, [rfReplaceAll]);

lastid := getit.get(URL+'/admin.php?nick='+nick+'&pw='+pw+'&go=getlastid'+'&casenick='+casenick);

  finally

    GetIt.Free;

  end;

// Text aktualisieren auf der Form

    Synchronize(Updateit);

end;

procedure TGetRemoteVersionThread.Updateit;

begin

if (new = '') OR (new = ' ') then begin

end else begin

form1.chat.Lines.Add(new);

end;

end;

procedure TForm1.Timer2Timer(Sender: TObject);

var

  Thread: TGetRemoteVersionThread;

begin

  Thread := TGetRemoteVersionThread.Create(True);

  Thread.FreeOnTerminate := True;

  Thread.Resume;

  thread.DoTerminate;

end;

**ste_ett**

"GetIt" muss erzeugt werden.

GetIt := TIdHTTP.Create(nil);

Threads!? Wie geht das?

Re: Threads!? Wie geht das?

Re: Threads!? Wie geht das?

Re: Threads!? Wie geht das?

Re: Threads!? Wie geht das?

Re: Threads!? Wie geht das?

Re: Threads!? Wie geht das?

Re: Threads!? Wie geht das?

Re: Threads!? Wie geht das?

Forumregeln

Neuni Registriert seit: 25. Feb 2004 815 Beiträge Delphi 7 Personal	#21 Re: Threads!? Wie geht das? 21. Mär 2006, 12:37 Auch schon probiert...das geht aber net Zitat: [Error] Unit1.pas(564): Incompatible types: 'TComponent' and 'TGetRemoteVersionThread' [Fatal Error] Project1.dpr(6): Could not compile used unit 'Unit1.pas'
	Zitat

Angel4585 Registriert seit: 4. Okt 2005 Ort: i.d.N.v. Freiburg im Breisgau 2.199 Beiträge Delphi 2010 Professional	#22 Re: Threads!? Wie geht das? 21. Mär 2006, 12:39 versuchs mal mit "nil" sollte gehen Martin Weber Ich bin ein Rüsselmops
	Zitat

Neuni Registriert seit: 25. Feb 2004 815 Beiträge Delphi 7 Personal	#25 Re: Threads!? Wie geht das? 24. Mär 2006, 21:24 Hmm...irgendwie macht das "GetIt.Create(nil);" n Problem (siehe Anhang). Miniaturansicht angehängter Grafiken
	Zitat

ste_ett Registriert seit: 10. Sep 2004 Ort: Dülmen 464 Beiträge Delphi 7 Professional	#26 Re: Threads!? Wie geht das? 24. Mär 2006, 22:03 Bei mir geht's. Zeig mal die komplette Execute-Prozedur. Stefan "Geht nicht!" ist keine Fehlerbeschreibung und "Hab ich schon versucht!" keine Antwort! Hey, it compiles! Ship it!
	Zitat

ste_ett Registriert seit: 10. Sep 2004 Ort: Dülmen 464 Beiträge Delphi 7 Professional	#28 Re: Threads!? Wie geht das? 25. Mär 2006, 13:14 "GetIt" muss erzeugt werden. GetIt := TIdHTTP.Create(nil); Stefan "Geht nicht!" ist keine Fehlerbeschreibung und "Hab ich schon versucht!" keine Antwort! Hey, it compiles! Ship it!
	Zitat