downloader.dpr.~23~

photo.163.com 相册下载器 多线程下载

program Downloader;
//library Downloader;

{$APPTYPE CONSOLE}

uses
  Windows,
  Sysutils,
  Messages,
  Classes,
  Down in 'Down.pas',
  DT in 'DT.pas';

procedure SendData(cn,d : PChar);
var
  MyWindow: THandle;
  CDS: TCopyDataStruct;
begin
  MyWindow := FindWindow(cn, nil);
  if(MyWindow > 0)then
  begin
    FillChar(CDS, SizeOf(TCopyDataStruct), #0);
    CDS.cbData := StrLen(d) + 1;
    CDS.lpData := d;
    SendMessage(MyWindow, WM_COPYDATA, 0, LParam(@CDS));
    Halt(255);
  end;
end;

var
  fn,url,cn,d : string;
  count,wait,i : integer;
begin if ParamCount >=2 then begin
  for i:=0 to ParamCount do begin
    d := d + #$0D#$0A + ParamStr(i);
  end;
  cn := 'TDownHost';
  SendData(PChar(cn),PChar(d));
  d := '';
  cn := '';

  fn := ExtractFileDir(ParamStr(0))+'\'+ParamStr(2);
  if FileExists(fn)then begin
    if(GetFileSizeI(PChar(fn))>0)then Halt(1);
  end;
  url := ParamStr(1);
  if ParamCount>2 then count := StrToIntDef(ParamStr(3),5);
  if ParamCount>3 then wait := StrToIntDef(ParamStr(4),40);
  count := DownURLToFile(PChar(url),PChar(fn), count,wait);
  if count>0 then begin
    Writeln('Err: No_File_DownLoaded. Count=',count);
    FileSetAttr(fn,128);
    DeleteFile(fn);
    Halt(1);
  end;

end;Halt(0);end.

export DownURLToFile;