我有一例子,要不要。
mailto:[email protected]
mailto:[email protected]
解决方案 »
- 请问用delphi做的网页控件,运行时出现:在此页上的Activex控件的其它部份的交互可能不安全, 你允许吗?
- Installshield x 打包MSDE 2000 的问题
- 动态创建的VCL控件如何改变属性?
- 扫描仪取页数和合并图片并且分页显示.
- 急! !急! !急! ! 如何用Delphi 代码修改PC的DNS,必要时并使PC的DNS设置那变灰使用户无法修改 .
- 真诚的请各位兄弟姐妹、师长帮帮我 100分(在线等待)
- 怎么样在Jpg图片上加上文字
- 求类似彩票模拟选好选择的是用Delphi实现
- 使用socket传送文件时到accept时程序死掉了,大家帮忙看看哈
- delphi中如何创建控件数组
- 三层结构中存储过程调用中为什么会报错,如何修改
- 如何获取图片(jpg)的长宽高
[email protected]
(1)if MyReceviceLength>10000 then
{分几次收取数据,在合并}
else
{一次性收取数据}
(2)Socket.ReceiveBuf(MyBuffer, MyReceviceLength); {接收数据包并读入缓冲区内}
MyBuffer可能包含了MySize 的值,你没分离出来,
注意你的循环语句 if MySize = 0 then {MySize为服务端发送的字节数,如果为0表示为尚未开始图象接收}
begin
S := Socket.ReceiveText;
MySize := Strtoint(S); {设置需接收的字节数}
Clientsocket1.Socket.SendText('ready'); {发指令通知服务端开始发送图象}
end
else
begin {以下为图象数据接收部分}顺便我想问一下:MyStream.Position := 0;{注意:必须添加此句}是何意?
我有过同样的经历
方法:
if 系统=win2000/xp then
if 重装后=有问题 then
if 其它机器(98/me)上运行=有问题 then
if 程序=没问题 then
halt;