TCPClient, TCPServer : SendBufer()

[Zeraim]

Вроде всё отсылает, ничего не теряется. Но получается не то, что хотелось бы, получается кусок не пойми какой картинки. Также мне кажется что у меня что-то зависает после 1ой отправки, потому что потом на имеидже ничего не отображается.

unit CardSendTCP_Delphi;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Sockets, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    TcpClient1: TTcpClient;
    TcpServer1: TTcpServer;
    Edit2: TEdit;
    Button2: TButton;
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure TcpServer1Accept(Sender: TObject; ClientSocket: TCustomIpClient);
    procedure Edit2Click(Sender: TObject);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Bmp : Tbitmap;
implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
var
p : tpoint;
DC : HDC;
buff : array [1..9900] of integer;
i,j,t : integer;
begin
label1.Caption := 'Послано:';
label3.Caption := 'Размер буфера:';
label2.Caption := 'Принято:';

TCPClient1.RemoteHost := Edit2.Text;

if TCPClient1.Connect then
begin
  GetCursorPos(p);
  DC := GetDC( 0 );
  bitblt(Bmp.Canvas.Handle,0,0,110,90,DC,p.X-55,p.Y-45,SRCCOPY);
  ReleaseDC( 0,DC );
  for j := 1 to 90 do begin
    for i := 1 to 110 do buff[i+j-1] := bmp.Canvas.Pixels[i,j];
  end;
  label3.Caption :='Размер буфера: '+inttostr(SizeOf(Buff));
  t := TCPClient1.sendbuf(buff,SizeOf(Buff));
  label1.Caption := 'Послано: '+inttostr(t);
  TCPClient1.Disconnect;
end
else
  Edit2.Text := 'Сервер не отвечает'
end;

procedure TForm1.Edit2Click(Sender: TObject);
begin
if Edit2.Text = 'IP получателя' then Edit2.Text := '';
end;

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if ((key<'0')or(key>'9'))and(key<>'.')and(key<>#8) then key := #0;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Bmp := TBitmap.Create;
Bmp.Width := 110;
Bmp.Height := 90;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
Bmp.Free;
end;

procedure TForm1.TcpServer1Accept(Sender: TObject;
  ClientSocket: TCustomIpClient);
var
buff : array [1..9900] of integer;
i,j,t : integer;
begin
t := ClientSocket.ReceiveBuf(buff,SizeOf(Buff));
Label2.Caption := 'Принято: '+inttostr(t);
for j := 1 to 90 do begin
  for i := 1 to 110 do begin
    Image1.Canvas.Pixels[i,j] := buff[i+j-1];
  end;
end;
end;

end.

[Пепел Феникса]

а может лучше через поток отсылать?

[Zeraim]

Через поток, я так и не понял как считывать то что прислали.
То есть если допустим отправлять:
Bmp.SaveToStream(strm);
TCPClient1.SendStream(strm);
То потом я без понятия как это читать.
Есть еще варианты где сохранялась информация в виде текстового файла, и потом опять же потоком отсылалась. Читалась в итоге построчно. Но вроде он ничем не лучше чем отсылать просто массивом.

[Пепел Феникса]

procedure TForm1.TcpClient1Receive(Sender: TObject; Buf: PChar;
  var DataLen: Integer);
var M:TMemoryStream;
begin
 M:=TMemoryStream.Create;
 M.WriteBuffer(Buf[0]{вроде 0 в PChar это первый символ},DataLen);
 Image1.Picture.Bitmap.LoadFromStream(M);
 M.Free;
end;

правда у нас похоже версии разные...но намек я дал

[Zeraim]

Хм чтения потоком я так и не нашёл, только через буфер, но я всё равно попробовал, в итоге:

strm := TMemoryStream.Create;
bmp.SaveToStream(strm);
t := TCPClient1.SendStream(strm);
strm.Free;

если SendStream возвращает число посланных байт, то отсылается 0, и выдаёт ошибку неправильного дискриптора(№6)

strm := TMemoryStream.Create;
//t := ClientSocket.ReceiveBuf(strm,SizeOf(strm));
t := ClientSocket.PeekBuf(strm,sizeOf(strm));
bmp.LoadFromStream(strm);
image1.Canvas.Draw(0,0,bmp);
strm.Free;

Пробовал оба 2 варианта считывать что прислали, везде естественно принято 0 байт, и ошибок тоже нету, хотя если бы удалось что-то отослать думаю ошибку получили бы. Юзаю халявный билдер, 2006 вроде. 8)