Function in project.dpr

0

Mam taki kod:

program Shivan;
uses {URLMon,}windows;
{$R *.res}

function URLDownloadToFile(Caller: IUnknown; URL: PChar; FileName: PChar;
Reserved: DWORD; StatusCB: IBindStatusCallback): HResult; stdcall;

implementation

function URLDownloadToFile; external UrlMonLib name 'URLDownloadToFileA';

begin
URLDownloadToFile(nil,'http://www.shivan.friko.pl/logo.jpg', 'c:\a.jpg',0, nil);
end.

Co trzeba poprawic by dzialala funkcja do scaigania pliku ?

0

odkomentować unit URLMon, tak mi sie wydaje przynajmniej

0

ale walsnie ja chce zrobic by nie wykorzystywal go - tak by mniej zajmowal

0

A nie przychodzi Ci do głowy, że ta funkcja jest zadeklarowana właśnie w tym unicie? Skąd program ma wiedzieć jak wykonać funkcję, jak nie podłączysz unitu???

0 
{$EXTERNALSYM URLDownloadToFile}
function URLDownloadToFile(Caller: IUnknown; URL: PChar; FileName: PChar; Reserved: DWORD; StatusCB: IBindStatusCallback): HResult; stdcall; external UrlMonLib name 'URLDownloadToFileA';

{$EXTERNALSYM URLDownloadToFileA}
function URLDownloadToFileA(Caller: IUnknown; URL: PAnsiChar; FileName: PAnsiChar; Reserved: DWORD; StatusCB: IBindStatusCallback): HResult; stdcall; external UrlMonLib name 'URLDownloadToFileA';

{$EXTERNALSYM URLDownloadToFileW}
function URLDownloadToFileW(Caller: IUnknown; URL: PWideChar; FileName: PWideChar; Reserved: DWORD; StatusCB: IBindStatusCallback): HResult; stdcall; external UrlMonLib name 'URLDownloadToFileW';

Wybierz sobie dowolną z tych trzech funkcji i wrzuc jej deklaracje do swego kodu i uzywaj.

// Nawet nie chce sie chłopakowi skopiować deklaracji, z unitu. Masz przecież źródła? W katalogu source?

1 użytkowników online, w tym zalogowanych: 0, gości: 1