Проблема непонятная, но может кто встречался с таким... Я уже не могу ниче понять...
Отправляю с клиента картинку каждые n сек... Первый раз принимается и отображается, а второй раз ругается при попытке загрузить Image из Стрима...
Сервер:
| Код |
procedure SendDisp;
Var Error:integer;
DispSize:integer;
// DispStream:TMemoryStream;
begin
DispStream:=TMemoryStream.Create;
JpegIm.SaveToStream(DispStream);
DispStream.Seek(0,soFromBeginning);
DispSize:=DispStream.Size;
if vSocket<>Socket_Error then
begin
Error:=Send(vSocket,DispSize,SizeOf(DispSize),0);
Error:=Send(vSocket,DispStream.Memory^,DispSize,0);
DispStream.Destroy;
JpegIm.Destroy;
if Error=Socket_Error then
Begin
ServerForm.Timer1.Enabled:=False;
MessageDlg('Ошибка при передаче данных!',mtWarning,[mbOk],0);
end;
end
else
MessageDlg('Ошибка при передаче данных! Socket_Error',mtWarning,[mbOk],0);
end;
|
Клиент:
| Код |
procedure TClientForm.Socket_Proc_Read_Close(var Msg:TMessage);
Var err:integer;
S:String;
begin
if WSAGETSELECTEVENT(Msg.lParam) = FD_CLOSE then
begin
MessageDlg('Сервер закрыл соединение',mtInformation,[mbOk],0);
ClientForm.Caption:='RemAdmin - Disconnected';
ClientForm.Button1.Enabled:=true;
end;
if WSAGETSELECTEVENT(Msg.lParam) = FD_READ then
begin
if Reciv=false then
begin
Err:=recv(cSocket,DispSize,SizeOf(DispSize),0);
If Err=Socket_Error then
MessageBox(NULL,'Ошибка при получении!','Error',MB_OK)
else
begin
reciv:=true;
MyStream:=TMemoryStream.Create;
JpegIm:=TJPEGImage.Create;
end;
end
else
begin
SetLength(s,17520);
err:= recv(cSocket,S[1],17520,0);
If Err=Socket_Error then
begin
MessageBox(NULL,'Ошибка при получении!','Error',MB_OK);
exit;
end;
MyStream.Write(S[1],err);
if DispSize=MyStream.Size then
begin
MyStream.Position:=0; //Seek(0,soFromBeginning);
JpegIm.LoadFromStream(MyStream);// Здесь ругаемся...
Image1.Canvas.Draw(0,0,JpegIm);
MyStream.Destroy;
JpegIm.Destroy;
Reciv:=false;
end;
end;
end;
end;
|
Может поможет кто-нибудь
Запускал на двух разных машинах, там на третий раз ругается... |
)
С сервера отправляю...
Я пишу курсовую по Сетям... Сеть нужно ручками описывать...