Форум: "Начинающим";
Текущий архив: 2007.01.14;
Скачать: [xml.tar.bz2];

Вниз

как с помощью winapi закачать фаил с ftp   Найти похожие ветки 

← →
alex1111111111111111   (2006-12-25 14:46) [0]

как с помощью winapi закачать фаил с ftp

---

← →
kaZaNoVa ©   (2006-12-25 14:58) [1]

function GetInetFile (const fileURL, FileName: String): boolean;
const
    BufferSize = 1024;
var
    hSession, hURL: HInternet;
    Buffer: array[1..BufferSize] of Byte;
    BufferLen: DWORD;
    f: File;
    sAppName: string;

Begin
 hSession := InternetOpen(PChar(sAppName),
 INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
 try
    hURL := InternetOpenURL(hSession,
    PChar(fileURL), nil, 0, 0, 0);
  try
     AssignFile(f, FileName);
     Rewrite(f,1);
  repeat
     InternetReadFile(hURL, @Buffer, SizeOf(Buffer), BufferLen);
     BlockWrite(f, Buffer, BufferLen);
     ProcessMessages;
  until BufferLen = 0;
  CloseFile(f);
  Result:=True;
  finally
     InternetCloseHandle(hURL)
  end
 finally
  InternetCloseHandle(hSession)
 end
End;


---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2007.01.14;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.011 c