> maxistent ©   (30.11.09 17:38) [15]


Например, так:

var
 ptrDataToRender: Pointer;
..
 ptrDataToRender := SysGetMem(dwBytesReadFromClient);
 try
   CopyMemory(ptrDataReadFromClient, ptrDataToRender, dwBytesReadFromClient);
   PostMessage(MyRenderForm.Handle, WM_DATA_TO_RENDER_AVAIL, Pointer(dwBytesReadFromClient), Self);
 except
    FreeMem(ptrDataToRender);
    raise;
 end;

в общем, пробывал сделать по таймеру, пипец получается. в смысле, задержка большая. пробывал в отдельном потоке - тут одно из двух, либо ошибка (типа не успевает прорисовываться, JPEG Error #43,#52 и т.д.), либо, если поставить что-то вроде sleep(1/5/10) то опять-таки тормозит :( что делать даже не знаю..

> Сергей М. ©   (01.12.09 08:23) [20]

Не пойму как это применить? можно пояснить что к чему? например что есть ptrDataReadFromClient? указатель на TJPEGImage? и что за сообщение такое WM_DATA_TO_RENDER_AVAIL? что в этом блоке кода происходит, объясни если не сложно?

> что делать даже не знаю

Ему про фому, он всё про ерему)

Ты в [14],[20] вник ?

в [14] да, а вот в [20] не совсем. поэтому и прошу объяснить

вопросы:
1) WM_DATA_TO_RENDER_AVAIL - это, как я понимаю, МОЕ СОБСТВЕННОЕ сообщение, так? тогда как его обработать потом?
2) в строке
вообще не пойму что происходит.. отправляем окну сообщение - это понятно, а что в параметрах?..

> что есть ptrDataReadFromClient?


Указатель на очередной блок данных, полученный сервером от клиента в теле OnExecute.


> что за сообщение такое WM_DATA_TO_RENDER_AVAIL?


Константа-идентификатор предопределенного тобой пользовательского сообщения, например, WM_USER + 1000


> что в этом блоке кода происходит


Очередной блок данных, который твой сервер получил в OnExecute от клиента и который должен быть отрисован формой в осн.потоке, копируется в подготовленный (выделением памяти) буфер, указатель на этот буфер передается параметром wParam асинхронного сообщения окну твоей формы.

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

В OnExecute:

var
ptrDataToRender: Pointer;
..
ptrDataToRender := SysGetMem(dwBytesReadFromClient);
try
  CopyMemory(ptrDataReadFromClient, ptrDataToRender, dwBytesReadFromClient);
  PostMessage(MyRenderForm.Handle, WM_DATA_TO_RENDER_AVAIL, WPARAM(ptrDataToRender), LPARAM(dwBytesReadFromClient));
except
   FreeMem(ptrDataToRender);
   raise;
end;

В юните формы:

const
 WM_DATA_TO_RENDER_AVAIL = WM_USER + 1000;
..
TMyForm = class(TForm)
...
private
..
 procedure WMMyMessage(var Message: TMessage); message WM_DATA_TO_RENDER_AVAIL;
..
end;
..
procedure TMyForm.WMMyMessage(var Message: TMessage);
var
 ptrDataToRender: Pointer;
 dwSizeOgDataToRender: DWord;
begin
 ptrDataToRender := Pointer(Message.wParam); // вот тебе адрес буфера
 dwSizeOgDataToRender := DWord(Message.lParam); //вот тебе размер данных в этом буфере
 try
.. тут обрабатывай его как угодно - хоть рисуй его где хочешь, хоть еще что-то ..
 finally
   FreeMem(ptrDataToRender); // и обязательно освободи память, выделенную в OnExecute под этот буфер !!
 end;
end;

теперь понятно, спасибо. только данные приходят "левые" какие-то :( может что-то с указателями не так?

> ptrDataToRender := Pointer(Message.wParam); // вот тебе
> адрес буфера

вот тут явно не тот буфер (я проверял), который был изначально в OnExecute, хотя dwSizeOfDataToRende имеет правильное значение. что-то тут не так..

> что-то тут не так


Угу.
Ошибка у тебя в программе, в 17-й строке)

нет, врядли =) в 17-й строке написано

ну а если серьезно? почему данные, полученные обработчиком сообщения (procedure WMMyMessage(var Message: TMessage)) отличаются от тех, которые были изначально ему переданы? отличается именно буфер!

У тебя с головой и логикой вообще все в порядке ?)

Ты где-то там накосячил, код ты показывать не желаешь, а я должен догадаться с 3-х раз, где и что у тебя там не так ?)

ну, партизан... код показывай уже а? что за ё маё?

ну вот такой у меня код:

молодец
 FreeMem(ptrDataToRender);

> CopyMemory(buf, ptrDataToRender, DataSize);


Это что за ерунда ?!
Да еще и с учетом [33] ?

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

> в чем моя ошибка?

Их минимум две:

1. Собственноручно уничтожил только что принятые данные, см. [33]
2. Поменял местами источник и приемник в операции копирования (CopyMemory), указав к тому же в кач-ве приемника адрес уже не существующего буфера, который ты см. п.1

сорри, по поводу п.2 это я протупил. да, действительно перепутал. сейчас поменял местами - то же самое. в каком месте нужно выполнять
?

вообще странный код:



что за buf1?
почему raise?

FreeMem правильно написан
finally
 FreeMem(ptrDataToRender);
end;

> в каком месте нужно выполнять FreeMem(ptrDataToRender);?

Минимум в 2-х:

1. на стороне отправителя - при исключении.
2. На стороне получателя - безусловно.