FTP FtpFindFirstFileA реализация?

[Gorynych]

Описал функции и получилось Может кому нужно будет.
Class WinInet

ClassDeclaration
...
DLLFunction _ftpFindFirstFile;
DLLFunction _internetFindNextFile;
 
void new()
...
    _ftpFindFirstFile = new DLLFunction(_winInet, 'FtpFindFirstFileA');
    _ftpFindFirstFile.returns(ExtTypes::DWORD);
    _ftpFindFirstFile.arg(ExtTypes::DWORD);
    _ftpFindFirstFile.arg(ExtTypes::STRING);
    _ftpFindFirstFile.arg(ExtTypes::Pointer);    // Win32_Find_Data
    _ftpFindFirstFile.arg(ExtTypes::DWord);
    _ftpFindFirstFile.arg(ExtTypes::DWord);
    _internetFindNextFile = new DLLFunction(_winInet, 'InternetFindNextFileA');
    _internetFindNextFile.returns(ExtTypes::DWORD);
    _internetFindNextFile.arg(ExtTypes::DWord);
    _internetFindNextFile.arg(ExtTypes::Pointer);    // Win32_Find_Data
 
 
container ftpFindFirstFile(int _ndl, str 255 _mask)
{
    Binary      data            = new Binary(0x200);
    ;
    return [_ftpFindFirstFile.call(_ndl, _mask, data, 0, 0), data.string(44)];
}
 
container internetFindNextFile(int _hdl)
{
    Binary      data            = new Binary(0x200);
    ;
    return [_internetFindNextFile.call(_hdl, data), data.string(44)];
}

Все остальное из Базы Знаний можно взять