由于本人原来用的是vb中msWinsock.ocx控件,现在改用delphi,想继续使用该控件编程,问题如下:在执行文件下载命令后,需要在DataArrival事件中接收二进制数据,下面是部份代码:var VarData:oleVariant;
sckData.GetData(VarData);请问VarData获得二进制数据数据后,怎样将其保存到文件中?谁能帮我解决?谢谢
sckData.GetData(VarData);请问VarData获得二进制数据数据后,怎样将其保存到文件中?谁能帮我解决?谢谢
MyTextFile : TextFile;
i : integer;
begin
AssignFile(MyTextFile,'MyTextFile.txt');
Rewrite(MyTextFile);
try
for i := 1 to 100 do
Writeln(MyTextFile,'当前行数 : ',i);
finally
CloseFile(MyTextFile);
end;
var strCmd,fileName:string;strCmd:='retr '+fileName+chr(13)+chr(10);
WinsockControl.SendData(strCmd);
关键就是在执行retr命令后,在sckData.DataArrival事件中,怎样接收二进制数据,其中delphi要求varData必须是oleVariant类型,该怎样处理varData,并保存它到文件。谢谢!
看行不行?