要分的看过来：）不要错过！(200分)

G

gaoren

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-08

• #1

麻烦大家帮我看一下这个程序，我不知道为什么 nmudp1.SendStream(strr);这句老是有问题

procedure TForm1.BitBtn1Click(Sender: TObject);
var
bmp1:tbitmap;
bmp1canvas:tcanvas;
dc:HDC;
c:string;
begin
strr:=tmemorystream.Create;
bmp1:=tbitmap.Create;
bmp1.Height:=screen.Height;
bmp1.Width:=screen.Width;
dc:=getDC(0);
bmp1canvas:=tcanvas.Create;
bmp1canvas.handle:=dc;
bmp1.Canvas.CopyRect(rect(0,0,bmp1.Width,bmp1.height),bmp1canvas,rect(0,0,screen.Width ,screen.Height));
bmp1canvas.free;
//Form1.Canvas.Draw(0,0,Bmp1);
image1.Picture.Bitmap :=bmp1;
bmp1.SaveToStream(strr);
nmudp1.RemoteHost:='192.168.0.5';
nmudp1.RemotePort :=1024;
nmudp1.SendStream(strr);
strr.Free;
end;

 

L

lha

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-08

• #2

试一试将 strr 的指针移到开始端 （是不是这样写： strr.Position:=0）

 

Y

YB_unique

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-08

• #3

BUG2: strr.Position:=0; //必须指针复位
添加在bmp1.SaveToStream(strr);后面。

 

Y

YB_unique

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-08

• #4

BUG1: Strr: TMemoryStream;
这一句怎么都不见了？没有这句就肯定出错！

 

2

203010

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-08

• #5

流的操作都是从当前位置开始的，所以要
strr.Position:=0
nmudp1.SendStream(strr);

 

Y

yu_gao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-08

• #6

我试了一下
bmp1.width=5;
bmp1.height=5;就可以通过，可能是流大小的问题

这个贴子也许有用
http://www.delphibbs.com/delphibbs/dispq.asp?lid=226177

 

G

gaoren

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-08

• #7

谢谢！

 

D

dadabox

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-08

• #8

老兄真是闊氣﹐一出手就是200分。

 

卷

卷起千堆雪tyn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-08

• #9

看看我在这里的回答：
http://www.delphibbs.com/delphibbs/dispq.asp?lid=717652

 

W

westboy2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-09

• #10

Strr: TMemoryStream;
and
strr.Position:=0;

 

Z

zhangkan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-09

• #11

gaoren,昨天给你发的截图程序收到没有?
改一下.
procedure TForm1.BitBtn1Click(Sender: TObject);
var
bmp1:tbitmap;
bmp1canvas:tcanvas;
dc:HDC;
c:string;
strr:TMemoryStream;
begin
try
strr:=tmemorystream.Create;
strr.clear;
bmp1:=tbitmap.Create;
bmp1.Height:=screen.Height;
bmp1.Width:=screen.Width;
dc:=getDC(0);
bmp1canvas:=tcanvas.Create;
bmp1canvas.handle:=dc;
bmp1.Canvas.CopyRect(rect(0,0,bmp1.Width,bmp1.height),bmp1canvas,rect(0,0,screen.Width ,screen.Height));
//Form1.Canvas.Draw(0,0,Bmp1);
image1.Picture.Bitmap :=bmp1;
bmp1.SaveToStream(strr);
strr.position:=0;//在这儿你得将它的起始位置设为最前面.
nmudp1.RemoteHost:='192.168.0.5';
nmudp1.RemotePort :=1024;
nmudp1.SendStream(strr);
finally
bmp1canvas.free;
bmp1.free;
strr.Free;
end;
end;

 

G

gaoren

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-09

• #12

多人接受答案了。

 

Z

zh_2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-09

• #13

都说了，也不用我说了，加分是不要忘了我就行了！