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

[supernewbie]

ну а как, как мать перемать эту память то выделять? ох *ля(

[destructor]

virtualalloc?
heapalloc?

Добавлено через 45 секунд
только ненадо это делать при каждом входящем пакете

[supernewbie]

heapalloc? это освободить?

Добавлено через 2 минуты
че-то не похоже) так, щас сделаю по-нормальному, потому что вроде работает

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

procedure ParsingFromServer(curpck:PNetworkPacket); stdcall;
var
  p:pointer;
  b:byte;
  i:cardinal;
  s,s1:string;
begin
  VirtualAlloc(@s,150000,0,0);
  VirtualAlloc(@s1,1500,0,0);
  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;
  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;
end;

критки, как правильно выделять память? 1 раз выделить? тогда как проверить что у строк не выделенна память?

Добавлено через 4 минуты
помогите, госпади, за что мне это((

Добавлено через 10 минут
эпик

2011.2.3 22:02:36
OS : Windows XP x64 5.2 (Build: 3790)
CPU : AuthenticAMD AMD Athlon(tm) 64 X2 Dual Core Processor 6000+ @ 3017 MHz 4094MB RAM
Video : NVIDIA GeForce 9800 GT (9745)
PosCode : LS2(216) 47896:186808:-3486 2/1 [392]

Insufficient Memory.
Please check the Virtual Memory Option and avilable hard drive space.
You can check them by going to : Control Panel->System->Advanced->Performance->Settings->Advanced->Virtual memory.

History: FMallocWindows::Malloc <- Size 1081728 FArray <- FMallocWindows::Realloc <- 00000000 1081728 FArray <- FArray::Realloc <- 90144*12 <- ATerrainInfo::UpdateVertices <- ATerrainInfo::UpdateVTGroup <- ATerrainInfo::PostLoad <- UObject::ConditionalPostLoad <- (TerrainInfo 21_24.TerrainInfo0) <- PostLoadObjects <- UGameEngine::LoadMapThread::ActorLoading <- UGameEngine::LoadMapThread <- RunLoadMap <- MessagePump <- MainLoop

Добавлено через 50 секунд
ПАНИКА, ЧТО ДЕЛАТЬ ГОСПАДИ

Добавлено через 4 минуты
добавил в begin end.
VirtualAlloc(@s,150000,0,0);
VirtualAlloc(@s1,150000,0,0); и сделал s и s1 глобальными переменными

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;

всё равно криты, но уже о том что ошибка в обработке какого-то пакета

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

Добавлено через 5 минут
понял, крит будет через n-ое кол-во пакетов, 100%, и это странно

[destructor]

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

только ненадо это делать при каждом входящем пакете

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

Please check the Virtual Memory Option and avilable hard drive space.

кончилась память

[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 минуты
кто-нибудь...

[destructor]

сделай в обработчике пакетов чтобы выводил только ид и размер

Добавлено через 1 минуту
s:=s+inttohex(b,2)+' ';это сомнительная операция в цикле

[supernewbie]

так вроде нормально всё, щас оставлю на минут 15

Добавлено через 4 минуты
блин, ну всё вылетает, только вот, ставлю перехват когда в игру уже зашел -> при тп нету крита, ставлю в самом начале -> при прогрузе крит

и постоянно эксцепты на этих местах

try
SetLength(data1,curpck.size);
except
MessageBox(0, 'ParsingFromServer0', 'ERROR', 0);
end;

try
//PacketsFromServer.Add(TFullPacketServer.create(cur pck,data1));
//PacketsFromServer.Add(TFullPacketServer.create(cur pck,data1));
ParsingFromServer(PacketsFromServer.Items[PacketsFromServer.Add(TFullPacketServer.create(cur pck,data1))]);
//h:=CreateThread(nil,150000,@ShowPacket,nil,0,c);
//CloseHandle(h);
except
MessageBox(0, pchar('ParsingFromServer12; i:='+inttostr(i)), 'ERROR', 0);
end;

Добавлено через 25 минут
щас ваще не выводится в кмд, посмотрим, как он проработает 20 минут

Добавлено через 5 минут
нет, вот мне было бы легче, если бы я услышал список предположений ПОЧЕМУ и ИЗ-ЗА чего такое возможно в принципе

[Yegor]

supernewbie, ну поотключай половину команд, добейся стабильной работы и постепенно добавляй команды, тут нужно експерементировать.

[supernewbie]

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

список предположений

[destructor]

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

сделай в обработчике пакетов чтобы выводил только ид и размер

сделал?