, 30 2015 . 06:04
+
.
WinInet. FtpCommand(), NOOP FTP .
// :
function FtpCommand(hConnect: HINTERNET; fExpectResponse: BOOL;
dwFlags: DWORD; lpszCommand: PChar; dwContext: DWORD;
var phFtpCommand: HINTERNET): BOOL; stdcall; external winetdll name 'FtpCommandA';
// :
[Code]procedure TJobFtpSource.SendCmd(Command: PChar; Response: array of Integer);
var
hResponse: HINTERNET;
begin
...
http://www.delphikingdom.com/asp/answer.asp?IDAnswer=82936
