for supernewbie (логово извращенцев)

[supernewbie]

ну щас я так не делаю! но всё-равно из-за чего-то идет ошибка, дестр, помоги((

Добавлено через 1 минуту

var
s,s1:string;

procedure ParsingFromServer(curpck:PNetworkPacket); stdcall;
var
  p:pointer;
  b:byte;
  i:cardinal;
begin
  s:='';
  with curpck^ do
  begin
  s:=inttohex(ID,2)+' ';
  if id2<>-1 then
  begin
  s1:=inttohex(ID2,4);
  s:=s+s1[3]+s1[4]+' '+s1[1]+s1[2]+' ';
  end;
  if size>0 then
  for i:=0 to size-1 do
  begin
  p:=Pointer(cardinal(curpck.data)+i);
  b:=Byte(p^);
  s:=s+inttohex(b,2)+' ';
  end;
  writeln('FromServer:'+s);
  end;
  s:='';
end;

begin
VirtualAlloc(@s,150000,0,0);
VirtualAlloc(@s1,150000,0,0);
end.

Добавлено через 52 минуты
*ля ну че за фигня ну, я уже таймер сделал чтобы по таймеру вытаскивать пакеты в другом потоке! таймер вообще не работает почему-то, что за херня!

Добавлено через 4 минуты
ПОМОГИТЕ, ПОМОГИТЕ ЖЕ МНЕ КТО-НИБУДЬ

Добавлено через 1 минуту
помогите...

Добавлено через 2 минуты
кто-нибудь...