|
Клиент сервер на основе TCP, передача bmp через stream
#40045038
Ссылка:
Ссылка на сообщение:
Ссылка с названием темы:
|
|
|
|
Ребят всем привет написал клиент сервер на основе TCP, клиент видит сервер, передает ему stream, сервер может сохранить изображение из stream в bmp файл, но не выгружает из stream в bmp. В чем может быть ошибка?
Клиент
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, IdBaseComponent,
IdComponent, IdTCPConnection, IdTCPClient;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
IdTCPClient1: TIdTCPClient;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
LStreamOutgoing, LStreamTwo: TMemoryStream;
BmpImageOne, BmpImageTwo : TBitmap;
begin
IdTCPClient1.Connect;
if IdTCPClient1.Connected then
Edit1.Text := 'Есть контакт'
else
begin
Edit1.Text := 'Нет контакта';
Exit
end;
//IdTCPClient1.Socket.WriteLn(Edit1.Text);
//Edit1.Text := '';
//Edit2.Text := IdTCPClient1.Socket.ReadLn;
LStreamOutgoing := TMemoryStream.Create;
//LStreamOutgoing.I
LStreamTwo := TMemoryStream.Create;
BmpImageOne := TBitmap.Create;
BmpImageTwo := TBitmap.Create;
BmpImageOne.LoadFromFile('C:\Users\Ildar\Desktop\79HqdU.bmp');
BmpImageOne.SaveToStream(LStreamOutgoing);
IdTCPClient1.Socket.Write(Int64(LStreamOutgoing.Size));
//IdTCPClient1.IOHandler.Write(LStreamOutgoing, 0, True);
IdTCPClient1.Socket.Write(LStreamOutgoing);
BmpImageOne.Free;
BmpImageTwo.Free;
LStreamOutgoing.Free;
LStreamTwo.Free;
IdTCPClient1.Disconnect;
end;
end.
Сервер
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, IdContext, Vcl.StdCtrls,
IdBaseComponent, IdComponent, IdCustomTCPServer, IdTCPServer;
type
TForm1 = class(TForm)
IdTCPServer1: TIdTCPServer;
Edit1: TEdit;
Edit2: TEdit;
procedure IdTCPServer1Execute(AContext: TIdContext);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
var
IncomingStream: TMemoryStream;
BmpFile: TBitmap;
LSize: Int64;
begin
//Edit1.Text := AContext.Connection.Socket.ReadLn;
//AContext.Connection.Socket.WriteLn(Edit2.Text);
IncomingStream := TMemoryStream.Create;
BmpFile := TBitmap.Create;
LSize := AContext.Connection.Socket.ReadInt64;
AContext.Connection.Socket.ReadStream(IncomingStream, LSize);
BmpFile.LoadFromStream(IncomingStream);
BmpFile.SaveToFile('C:\Users\Ildar\Desktop\CAD\123.bmp');
IncomingStream.Free;
BmpFile.Free;
end;
end.
|
|
|
