anty611 » 22 май 2007, 01:34
function URLDownloadToFile(Caller: cardinal; URL: PChar; FileName: PChar;Reserved: LongWord; StatusCB: cardinal):Longword; stdcall; external 'URLMON.DLL' name 'URLDownloadToFileA';
Function LowerCase(const S: string): string;
var
Len: Integer;
begin
Len := Length(S);
"SetString(Result, PChar(S), Len);"
if Len > 0 then CharLowerBuff(Pointer(Result), Len);
end;
Пишет ошибку в строке SetString(Result, PChar(S), Len);. ( я специально взял её в ковычки)
Что неправильно?? подскажите
function URLDownloadToFile(Caller: cardinal; URL: PChar; FileName: PChar;Reserved: LongWord; StatusCB: cardinal):Longword; stdcall; external 'URLMON.DLL' name 'URLDownloadToFileA';
Function LowerCase(const S: string): string;
var
Len: Integer;
begin
Len := Length(S);
"SetString(Result, PChar(S), Len);"
if Len > 0 then CharLowerBuff(Pointer(Result), Len);
end;
Пишет ошибку в строке SetString(Result, PChar(S), Len);. ( я специально взял её в ковычки)
Что неправильно?? подскажите