Forum: Sonstige Fragen zu Delphi
Delphi
by glkgereon,
3. Mär 2007
Wie würde das konkret aussehen?
so?
Synchronize(FTCP.Connect(FHost,FPort));
Edit:
So müsste es doch richtig sein, oder?
procedure TConnectThread.SyncConnect;
begin
FTCP.Connect(FHost,FPort);
end;
Forum: Sonstige Fragen zu Delphi
Delphi
by glkgereon,
3. Mär 2007
*möp*
procedure TChatClient.Connect(Host: String; Port: Integer);
var CT: TConnectThread;
T: Cardinal;
TT: TThread;
begin
if FIdTCP.Connected then Exit;
try
CT:=TConnectThread.Create(True);
CT.FreeOnTerminate:=True;
Forum: Sonstige Fragen zu Delphi
Delphi
by glkgereon,
3. Mär 2007
(Das ist alles.... Nun einmal F7 und Overflow...)
Forum: Sonstige Fragen zu Delphi
Delphi
by glkgereon,
3. Mär 2007
Ok, also praktisch mal ein Backtrace was bis dahin passiert.
(Ich kann schonmal von vorneherein sagen: in meinem Code kommt weder eine Schleife noch eine absichtliche Rekursion vor... das mit den Gettern...nicht das es mir aufgefallen wäre)
Das ganze ist extrem gekürzt...
aber alles relevante sollte drin sein.
So, der ButtonClick
TForm_Main = class(TForm)
public
I:...
Forum: Sonstige Fragen zu Delphi
Delphi
by glkgereon,
3. Mär 2007
nein, ich habe den von TThread nicht überschrieben.
Brauchte ich in dem Fall nicht.
Forum: Sonstige Fragen zu Delphi
Delphi
by glkgereon,
3. Mär 2007
Mir ist schon klar dass es nicht an TThread liegt....ich benutze im selben Programm auch noch nen anderen Thread, und der funktioniert...
Ich stehe hier echt völlig vor einer Wand.
wie gesagt: es ist eigentlich nichts da was den Stack wirklich füllen könnte und trotzdem kommt ein Overflow...immer :cry:
Forum: Sonstige Fragen zu Delphi
Delphi
by glkgereon,
2. Mär 2007
Hi,
Ich bastel mal wieder mit Threads rum.
folgender Code:
TConnectThread = class(TThread)
private
FTCP: TIdTCPClient;
FHost: String;
FPort: Integer;