Kontrolka ktora wysyla obrazek z Imagecontrol na server
procedure TForm1.Button3Click(Sender: TObject);
var
ms:TMemoryStream;
begin
ms:=TMemoryStream.Create;
IdTCPClient2.Host := edit1.Text;
ImageControl3.Bitmap.SaveToStream(ms);
IdTCPClient2.IOHandler.LargeStream := True;
IdTCPClient2.IOHandler.Write(ms, 0, True);
IdTCPClient2.Disconnect;
end;
A tu co robi z nia server
procedure TForm1.IdTCPServer2Execute(AContext: TIdContext);
var
ms:TMemoryStream;
size : Integer;
begin
ms := TMemoryStream.Create;
ms.Position := 0;
AContext.Connection.IOHandler.LargeStream := true;
AContext.Connection.IOHandler.ReadStream(ms);
ImageControl4.Bitmap.LoadFromStream(ms);
ms.Free;
end;
Problem wystepuje gdy chce wyslac obrazek jakis komunikat z adresami pamieci . Jak to rozwiazac bym mogl wyslac obrazek z imagecontrol i zeby server go wyswietlil?