从网上下了个“小马哥远程控制”源码想学习一下,发现代码能编译,但生成服务端时出现“stream read error”错误:
procedure TForm1.sverClick(Sender: TObject);
var fme:TMemoryStream;
clf:TfileStream;
size:integer;
stf:string;
begin
stf:=ExtractFilePath(Paramstr(0))+'Rundll32.exe';
if fileexists(stf) then deletefile(stf); fme:=TMemoryStream.Create;
clf:=Tfilestream.Create(application.ExeName,fmShareDenyNone);
try
clf.Seek(-sizeof(size),soFromEnd);
clf.ReadBuffer(size,sizeof(size));
clf.Seek(-size,soFromEnd);
fme.CopyFrom(clf,size-sizeof(size));
fme.SaveToFile(stf); //此处出错:stream read error!
finally
fme.Free;
clf.Free;
end; form4.Visible :=true;
FORM4.T1.Enabled :=TRUE;
form1.Enabled :=false;
end;
procedure TForm1.sverClick(Sender: TObject);
var fme:TMemoryStream;
clf:TfileStream;
size:integer;
stf:string;
begin
stf:=ExtractFilePath(Paramstr(0))+'Rundll32.exe';
if fileexists(stf) then deletefile(stf); fme:=TMemoryStream.Create;
clf:=Tfilestream.Create(application.ExeName,fmShareDenyNone);
try
clf.Seek(-sizeof(size),soFromEnd);
clf.ReadBuffer(size,sizeof(size));
clf.Seek(-size,soFromEnd);
fme.CopyFrom(clf,size-sizeof(size));
fme.SaveToFile(stf); //此处出错:stream read error!
finally
fme.Free;
clf.Free;
end; form4.Visible :=true;
FORM4.T1.Enabled :=TRUE;
form1.Enabled :=false;
end;
解决方案 »
- 【高兴帖】俺的可用分终于超过亮妹了,哈哈。。。
- 谁能帮我写一个小程序,隐藏调用一个外部播放器!
- 查询问题
- 如何安装一个系统服务?
- 换工作
- 能访问另一台电脑的桌面版的SQL吗?
- 请问在Delphi中能够实现 Object Inspector 的功能呢?
- 强,IdUDPClient 接收未知长度的Buf
- 还有什么控件能够同ICS中的ThttpCli控件功能差不多相同的,请高手们推荐!
- 关于日期字段的显示
- 菜鸟问题,如何遍历窗体的所有TWinControl
- 安装SQL Server2000报错:The program is used internally by PackageFromTheWeb.It Should not be executed directly!
//还是同样错
到这句时,size的値不对,size-sizeof(size)小于0