myStream :TmemoryStream;
mybmp :Tbitmap;
myJpg :TJpegimage;finame = 'c:\1.bmp'
if fileName = '' then exit;
MyStream := TMemoryStream.Create;
mybmp :=Tbitmap.Create;
MyJpg :=TJpegimage.Create;
mybmp.LoadFromFile(FileName);
Myjpg.Assign(Mybmp);
Myjpg.SaveToStream(mystream);
mystream.Position := 0;
Nmudp1.SendStream(MyStream);(运行到这一句出错)
mystream.Free;
mybmp.Free;
Myjpg.Free;
mybmp :Tbitmap;
myJpg :TJpegimage;finame = 'c:\1.bmp'
if fileName = '' then exit;
MyStream := TMemoryStream.Create;
mybmp :=Tbitmap.Create;
MyJpg :=TJpegimage.Create;
mybmp.LoadFromFile(FileName);
Myjpg.Assign(Mybmp);
Myjpg.SaveToStream(mystream);
mystream.Position := 0;
Nmudp1.SendStream(MyStream);(运行到这一句出错)
mystream.Free;
mybmp.Free;
Myjpg.Free;
解决方案 »
- pred 与succ 是否与当前的数据类型无关?
- 让qrdbtext有时不显示数据
- 初入门,看了一下tdataset,tdatasource,tdbedit的组件程序,一时搞不明白,请教哪里有介绍此几组件结构的文章?
- 做了一个控件,现在想发布,我见过可以做成EXE注册的,那是怎么做的呢??
- 简单问题,捡分啊
- 在线等待,关闭mdi子窗体的时候为什么是最小化,关不上
- 怎样用循环提出数据库中的前5条记录并将其中具体字段的值付给text1,text2,tex3...
- 大家谁知道国外发布软件的地方
- 很有挑战性的问题,高手请进!!!
- 怎样在SQL 中加入图片? 66分相送!
- 如何抓取窗口的屏幕? 急!!!!
- 怎样拖拽自己用Canvas画的图形啊?(在线等)
定义一个变量。
Buffer: array[0..1024] of Byte;
mystream.read
udp.sendbuffer.....
定义一个变量。
Buffer: array[0..1024] of Byte;
mystream.read
udp.sendbuffer.....
udp.sendbuffer(array of char,integer)这里不能发送Byte的数据要怎么转换?谢谢cmain83(心缘※草)
Buffer: array[0..1024] of Char
这样