IdUDPClient 和 IdUDPServer进行图象的传输的问题 |
|
尚未結案
|
|
huashi
一般會員   發表：7 回覆：8 積分：3 註冊：2003-06-13 發送簡訊給我 |
经测试，传送和接受的大小相同:
接受的代码：
procedure TServer.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
ABinding: TIdSocketHandle);
var RsltStream:TMemoryStream;
begin
RsltStream:=TMemoryStream.Create;
RsltStream.CopyFrom(AData,AData.Size);
if RsltStream.Size <= self.IdUDPServer1.BufferSize then
begin
RsltStream.Position:=0;
Image1.Picture.Bitmap.LoadFromStream(RsltStream);//出错，说图象无效！
RsltStream.Clear;
end;
end;
传输的代码略了，Image1.Picture.Bitmap.LoadFromStream(RsltStream);这句有问题。显示：‘Bitmap image is not valid' 發表人 - huashi 於 2003/06/13 16:25:07
|
|
China Join
中階會員  發表：81 回覆：242 積分：89 註冊：2003-03-12 發送簡訊給我 |
|
|
huashi
一般會員 發表：7 回覆：8 積分：3 註冊：2003-06-13 發送簡訊給我 |
|
|
China Join
中階會員 發表：81 回覆：242 積分：89 註冊：2003-03-12 發送簡訊給我 |
|
|
China Join
中階會員 發表：81 回覆：242 積分：89 註冊：2003-03-12 發送簡訊給我 |
|
|
China Join
中階會員 發表：81 回覆：242 積分：89 註冊：2003-03-12 發送簡訊給我 |
引言: 图象传输还是有问题 我看到有将bmp转化成jpeg后再传输的，是由于转化后的图象的大小有变化，还是因为其它的原因呢？，哪位能不能给个实际应用的例子，先谢谢了另外如果你傳的是 jpeg 不能用 Image1.Picture.Bitmap.LoadFromStream(RsltStream); 請改成 jpeg: TJPEGImage; try jpeg.LoadFromStream(RsltStream); Image1.Picture.Assign(jpeg); finally jpeg.Free; Stream1.Free; end; |
|
huashi
一般會員 發表：7 回覆：8 積分：3 註冊：2003-06-13 發送簡訊給我 |
传字符串是可以的，我测试过了。
传送的代码：
procedure TClient.Button1Click(Sender: TObject);
begin
ScreenCap(0,0,10,10);//获得得屏幕区域位图的函数，同时赋值给bmpstream--TMemoryStream
self.IdUDPClient1.BufferSize:=bmpstream.Size;
self.IdUDPClient1.SendBuffer(self.IdUDPClient1.Host,
self.IdUDPClient1.Port,bmpstream,bmpstream.Size);
end; 接收的代码：
接受的代码：
procedure TServer.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
ABinding: TIdSocketHandle);
var RsltStream:TMemoryStream;
begin
RsltStream:=TMemoryStream.Create;
RsltStream.CopyFrom(AData,AData.Size);
if RsltStream.Size <= self.IdUDPServer1.BufferSize then
begin
RsltStream.Position:=0;
Image1.Picture.Bitmap.LoadFromStream(RsltStream);//出错，说图象无效！
RsltStream.Clear;
end;
end; 另外我也试过传jpeg，也有错使用格式：jpeg.LoadFromStream(RsltStream);
Image1.Picture.Assign(jpeg);
|
發表時間：2003-06-13 15:07:23
IP:211.90.xxx.xxx 未訂閱
系統時間：2025-01-31 18:44:08
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |