Einzelnen Beitrag anzeigen

Jackie1983

Registriert seit: 12. Mär 2007
486 Beiträge
 
#12

Re: BeginThread mit Paramater self übergeben.

  Alt 11. Mär 2008, 19:17
bin jetzt schon weiter gekommen und habe da einen komischen fehler.
Delphi-Quellcode:
TMyClass = class
private
  fBoolean : Boolean;
  fClient : TidTcpClient;
public
  procedure irgendwas;
  procedure test;
end;

...

function MeinThread(p : Pointer) : integer;
var
  pMyClass : ^TMyClass;
  b : boolean;
  port : integer;
begin
  pMyClass := p;
  b := pMyClass^.fBoolean; //<- ok
  port := pMyClass^.fClient.port; //<- fehler
end;

...

procedure TMyClass.test;
begin
  BeginThread(nil,0,@MeinThread, Pointer(self), 0, ThreadId);
end;
wenn ich eigenschaften der klasse aufrufe ist alles bestens, wenn ich auf fclient zugreifen möchte bekomme ich einen fehler
hat das was mit dem pointer zu tun?

//edit
bekomme auch einen EOSError code 5
  Mit Zitat antworten Zitat