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

解决方案 »

  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;
      

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

  3. 用流的方式,然后再调用Stream.SaveToFile
    看行不行?
      

  4. duanhai(段海),兄弟伙,能不能祥细一点!
      

类似问题 »