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

解决方案 »

  1.   

    是不是图片过大,numdp1一次发送大小有限制吗?这个我不太清楚
      

  2.   

    我想应该先:
    youstream.position:=0;
      

  3.   

    不知道哦,高手们提供意见呀,
    youstream.position:=0
    是没用的,我想是不是发送限制问题呀?
      

  4.   

    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;