var youstream:tmemorystream; begin youstream:=tmemorystream.create; youstream.loadfile('image1.bmp'); nmudp1.sendstream(youstream);其实是想将一张已经存在的bmp位图('image1.bmp')读入已经定义的流中,然后发送出去 但是每次在nmudp1.sendstream(youstream)这一句执行的时候总是说 流出错了,请教, 急呀!!!
Var 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;
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;