var
youstream:tmemorystream;
begin
youstream:=tmemorystream.create;
youstream.loadfile('image1.bmp');
nmudp1.sendstream(youstream);其实是想将一张已经存在的bmp位图('image1.bmp')读入已经定义的流中,然后发送出去
但是每次在nmudp1.sendstream(youstream)这一句执行的时候总是说 流出错了,请教,
急呀!!!
解决方案 »
- 换新工作了,散分
- 请教高手:quickrep做的报表,有时候点quickrep.preview后,它老半天都出不来,有时候就会很快,请问什么原因?
- 如何使加载的图片透明
- 各位大侠,俺们初出茅庐请多指教。(软件无忧1.0)
- 关于OleContainer嵌入的问题,如何屏蔽WORD的右键菜单
- delphi ado连SQL SERVER,在win98系统下运行问题
- 这里的高手请注意一个高薪的机会!!
- b/s结构activex高手请进!100分!
- 请问哪位有Advanced Access Password Recovery2.4软件的注册码?
- 机器启动不起来!!!!!!!!!
- 关于socket的问题
- 用户权限的问题?
youstream.position:=0;
吧
youstream.position:=0
是没用的,我想是不是发送限制问题呀?
JPeg:TJPegImage;
begin
JPeg := TJPegImage.Create;
With Table1 do
Begin
Try
If JPegOpenPictureDialog.Execute Then
Begin Jpeg.LoadFromFile(JPegOpenPictureDialog.FileName);
Edit;
FieldByName('FieldForPhoto').Assign(JPeg);
Post;
End;
Except
ShowMessage('无法打开该图像文件!');
End;
End;
Jpeg.Free;
miShowJPeg.Click;
inherited;
end;图片读取:
Var
Jpeg: TJPegImage;
BlobStream:TStream;
begin
JPeg := TJPegImage.Create;
Try
Begin
BlobStream := MusterDm.MusterTable.
CreateBlobStream(Table1.FieldByName('FieldForPhoto'),bmRead);
Image1.Picture.Assign(nil);
If BlobStream.Size <= 0 Then Exit;
JPeg.LoadFromStream(BlobStream);
Image1.Picture.Assign(JPeg);
End;
Except End;
inherited;
JPeg.Free;
end;