Форум: "Сети";
Текущий архив: 2002.02.04;
Скачать: [xml.tar.bz2];
ВнизSocket, помогите с NMStrm Найти похожие ветки
← →
Kuzmin_Alex (2001-11-01 15:53) [8]Сейчас объясню, что мне надо. NMStrm (на удаленной машине) в цикле отсылает наименоваие запущенного процесса (в SFrom) + иконку (в Stream) соответствующую этому процессу (так хочет мой Boss).
Для приема написан следующий код:
procedure TSE.NMStrmServ1MSG(Sender: TComponent; const sFrom: String;
strm: TStream);
var
MyFStream: TMemoryStream;
icon:TIcon;
begin
if copy(sFrom,2,2)=":\" then
begin
ProcessStream := TMemoryStream.Create;
Icon:=TIcon.Create;
try
MyFStream.CopyFrom(strm, strm.size);
MyFStream.position:=0;
icon.LoadFromStream(MyFStream); //получаем иконку
with lvProcList.Items.Add do //добавляем в список
begin
Caption:=SFrom; //Процесс;
if ilProcIcons<>nil then
ImageIndex:=ImageList_AddIcon(ilProcIcons.Handle, icon.handle);
end;
finally
icon.free;
MYFStream.Free;
end;
end;
Так вот если NMStrm передает слишком шустро то NMStrm дает ошибки передачи.
Если не слишком то все нормально.
В каком направлении двигаться, что сделать по другому?
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2002.02.04;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.004 c