Указатели

[NEoMASTERR]

Ну при наборе в редакторе слова self помощник кода говорит что это именно TCsServer а не PCsServer, в общем в любом случае я имею access violation read of address 0x000000...

У меня д7

[Аватар]

Любая объектная переменная это указатель на экземпляр класса или nil. В том числе и Self

[evg_m]

self ЭТО неявный параметр функции(процедуры)
т.е. локальная переменная размещаемая в стеке и после выхода из процедуры ее НЕ существует, а память указывающая на нее имеет СОВСЕМ другое значение.
и обращение к неизвестной и возможно даже не существующей памяти естественно приводит к черт знает чему.

А вот ЕЕ значение и есть как раз УКАЗАТЕЛЬ на экземпляр обрабатываемого класса. (так устроены ВСЕ объекты в Delphi).

Так что как раз ВОВНЕ надо хранить Pointer(self). "разыменованный"(детипизированн ый) указатель экземпляра (объекта).
и восстанавливать типизацию при необходимости

TTCsServer(Pointer(self));

конечно же вместо Pointer(self) вы должны написать то где был сохранен нужный экземпляр

[NEoMASTERR]

procedure TCsServerListener.AddServer(pcs: pCsServer);
begin
  if server.IndexOf(pcs)=-1
  then server.Add(pcs);
end;

constructor TCsServer.Create(ip: string; port: Word; rcon: string);
begin
  inherited Create;
  FIp:= ip;
  FPort:=port;
  FRcon:=rcon;
  FListener:=@Listener;     
  FListener^.AddServer(pointer(self));    //<- добавил
  FCounter := 0;
end;

procedure TCsServerListener.Listen(Sender: TObject);
var
  i,j,x:integer;
  pcs:PCsServer;
begin
if server.count >0 then
for i:=0 to server.count -1 do
begin
  pcs:=PCsServer(Pointer(server[i]));
// в pcs^ unaccessible value

  if pcs^.FRconChallenge = '' then      // error Access Violation
  begin
    GetChallenge(pcs);
  end

end;

[Stilet]

pcs:=PCsServer(Pointer(server[i]));

А тут Pointer зачем? Он же и так указатель там...

[NEoMASTERR]

Сообщение от Stilet

А тут Pointer зачем? Он же и так указатель там...

Убрал, эффект тот же

[evg_m]

если мы "засовывали" переменную типа TCsServer

FListener^.AddServer(pointer(self)) ; //<- добавил

то и "доставать" надо ее же (тот же тип!)

var
  pcs: TCsServer;
...
  pcs:=TCsServer(Pointer(server[i]));

P.S. конечно же без Pointer.

[NEoMASTERR]

Это один из моих давних проектов, передавал указатель как указатель, а не как T...

procedure TWSAReceiver.closesock(s: PClientConnected);
begin
  closesocket(s^.socket);
  s^.socket:=0;
  s^.id:=0;
  s^.servstatus:=0;
end;

///
closesock(@parent.client[i]);

Сейчас вроде то же самое, и не работает

[evg_m]

var
  s: TCpServer; // УКАЗАТЕЛЬ на переменную в "ГЛОБАЛЬНОМ хранилище" экземпляров 
  ps: PCpServer; // УКАЗАТЕЛЬ на СВОЮ переменную c указателем конкретного экземпляра 

s:=TCpServer.Create();
ps:=@s;

работа с указателями НАПИСАНИЕ В стиле C(C++)

var
  ps: PCpServer;
ps:=new(TCpServer); //сначала надо ВЫДЕЛИТЬ память на котрую будем ссылаться
ps:=@(TCpServer.Create());  // а потом с ней работать
НИКОГДА так не работал, так что за правильность не ручаюсь.

[Stilet]

ps:=new(TCpServer); //сначала надо ВЫДЕЛИТЬ память на котрую будем ссылаться

Это не нужно, потому что ps, как я понял, получает указатель из TList.

ps:=@(TCpServer.Create()); // а потом с ней работать

Автор в конструкторе объекта помещает указатель на объект в список. Так что это тоже сомнительная операция.

P.S. Единственное, что могу сказать - не работать в ООП с указателями. По крайней мере в Делфи при наличии кучи спецклассов для такого дела.