VPF::Сохранение данных из WM_COPYDATA - Форум программистов

<Spawn>

Дата 3.9.2003, 08:54 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 44
Всего: 64

При перехвате пакета перекидываю его в свою прогу при помощи WM_COPYDATA. Но как не пытался не получалось сделать сохранение всех данных CopyMemory или Move. Пришлось в цикле сохранять, но скорость тут очень критична, поскольку нельзя на долго приостанавливать пакет, так как тормоза тогда будут... А WM_COPYDATA можно использовать только с SendMessage.
Сейчас так:

Код

procedure ViewAndSavePacket(var buf;Len:integer);
var
pb:PByte;
i:integer;
begin
Inc(CurrentPacketN);
ShowCurrSize(Len);
fAllodsMonitor.lbpNumber.Items.Add(IntToStr(CurrentPacketN));
//////////////
SetLength(Packets,CurrentPacketN);
SetLength(Packets[CurrentPacketN-1].Buf,Len);
pb:=PByte(buf);
for i:=0 to len-1 do
 begin
  Packets[CurrentPacketN-1].Buf[i]:=pb^;
  Inc(pb);
 end;
Dec(pb,len);
//////////////
if fAllodsMonitor.glcbxShowPackets.Checked then
 begin
  ViewPacket(buf,Len,CurrentPacketN,
             fAllodsMonitor.lbpElements,
             fAllodsMonitor.gllblPacketOne,dtByte);
 end;
end;

А хотелось бы что бы было например так:

Код

SetLength(Packets,CurrentPacketN);
SetLength(Packets[CurrentPacketN-1].Buf,Len);
CopyMemory(@Packets[CurrentPacketN-1].Buf,@Buf,Len);

Это сообщение отредактировал(а) <Spawn> - 3.9.2003, 08:55

--------------------

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

p0s0l

Дата 3.9.2003, 16:19 (ссылка)

(нет голосов)

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 58
Всего: 112

надо так:
CopyMemory(@Packets[CurrentPacketN-1].Buf[0],@Buf,Len);

--------------------

С уважением, г-н Посол.

<Spawn>

Дата 4.9.2003, 07:39 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 44
Всего: 64

p0s0l Access Violetion

--------------------

<Spawn>

Дата 4.9.2003, 07:55 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 44
Всего: 64

Как ни странно, но на этот цикл уходит не больше 10 млс(а за частую вообще 0 показывает!!!). Как такое может быть, ведь в нем 8192 итерации?(Проверял при помощи GetTickCount):

StartTime:=GetTickCount;
pb:=PByte(buf);
for i:=0 to len-1 do
begin
Packets[CurrentPacketN-1].Buf[i]:=pb^;
Inc(pb);
end;
Dec(pb,len);
EndTime:=GetTickCount;
AddMessage(Format('time - %d',[EndTime-StartTime]));

Это сообщение отредактировал(а) <Spawn> - 4.9.2003, 07:59

--------------------

p0s0l

Дата 4.9.2003, 19:44 (ссылка)

(нет голосов)

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 58
Всего: 112

Я плохо посмотрел, надо было так:
CopyMemory(@Packets[CurrentPacketN-1].Buf[0],pointer(Buf),Len);

Цитата

но на этот цикл уходит не больше 10 млс

Еще бы! Это же тебе не спектрум...

Цитата

а за частую вообще 0 показывает

Просто дискретность GetTickCount равняет 10 мс, т.е. если прошло 9 мс, то GetTickCount выдаст 0.

--------------------

С уважением, г-н Посол.

<Spawn>

Дата 6.9.2003, 08:46 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 44
Всего: 64

Хм. Так действительно все работает. Спасибо )

--------------------

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »