呵呵！一个简单的数据处理问题，高分相送，别错过。。。

Question

由于本人原来用的是vb中msWinsock.ocx控件，现在改用delphi，想继续使用该控件编程，问题如下：在执行文件下载命令后，需要在DataArrival事件中接收二进制数据，下面是部份代码：var VarData:oleVariant;
    
sckData.GetData(VarData);请问VarData获得二进制数据数据后，怎样将其保存到文件中？谁能帮我解决？谢谢

Answer 1

var
  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;

Answer 2

兄弟伙paranoia190，谢谢你的回复，可惜你答的不切题呀!再说明一点
var strCmd,fileName:string;strCmd:='retr '+fileName+chr(13)+chr(10);
WinsockControl.SendData(strCmd);
关键就是在执行retr命令后，在sckData.DataArrival事件中,怎样接收二进制数据,其中delphi要求varData必须是oleVariant类型，该怎样处理varData,并保存它到文件。谢谢!

Answer 3

用流的方式，然后再调用Stream.SaveToFile
看行不行？

Answer 4

duanhai(段海)，兄弟伙，能不能祥细一点!