kod:
Bu function nasil kullanacaksiniz
s icinde index.htm gelir. artik siz bu S stringin icinde istediginiz gibi kontrollerinizi yapabilirsiniz
32 K kucuk ise bu yontemi deneyin. daha buyuk bir dosya ise once bunu diskinize kaydetmeniz gerekir. o zamanda
procedure gy_DownloadFile_to_file(const Url: string;File1,File2: String; Obj:TObject); kullanin
var s: string;
begin
s := gy_DownloadFile_to_str('/index.htm');
end;
---------------------------------------------------
uses wininet;
...
function gy_DownloadFile_to_str(const Url: string): string;
var
NetHandle: HINTERNET;
UrlHandle: HINTERNET;
Buffer: array[0..1024] of Char;
BytesRead: dWord;
begin
Result := ";
NetHandle := InternetOpen('Delphi 5.x', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
if Assigned(NetHandle) then
begin
UrlHandle := InternetOpenUrl(NetHandle, PChar(Url), nil, 0, INTERNET_FLAG_RELOAD, 0);
if Assigned(UrlHandle) then
{ UrlHandle valid? Proceed with download }
begin
FillChar(Buffer, SizeOf(Buffer), 0);
repeat
Result := Result + Buffer;
FillChar(Buffer, SizeOf(Buffer), 0);
InternetReadFile(UrlHandle, @
, SizeOf(Buffer), BytesRead);
until BytesRead = 0;
InternetCloseHandle(UrlHandle);
end
else
{ UrlHandle is not valid. Raise an exception. }
raise Exception.CreateFmt('Cannot open URL %s', ); InternetCloseHandle(NetHandle); end else { NetHandle is not valid. Raise an exception } raise Exception.Create('Unable to initialize Wininet'); end;[/INDENT] [/COLOR]
s icinde index.htm gelir. artik siz bu S stringin icinde istediginiz gibi kontrollerinizi yapabilirsiniz
32 K kucuk ise bu yontemi deneyin. daha buyuk bir dosya ise once bunu diskinize kaydetmeniz gerekir. o zamanda
procedure gy_DownloadFile_to_file(const Url: string;File1,File2: String; Obj:TObject); kullanin
var s: string;
begin
s := gy_DownloadFile_to_str('/index.htm');
end;
---------------------------------------------------
uses wininet;
...
function gy_DownloadFile_to_str(const Url: string): string;
var
NetHandle: HINTERNET;
UrlHandle: HINTERNET;
Buffer: array[0..1024] of Char;
BytesRead: dWord;
begin
Result := ";
NetHandle := InternetOpen('Delphi 5.x', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
if Assigned(NetHandle) then
begin
UrlHandle := InternetOpenUrl(NetHandle, PChar(Url), nil, 0, INTERNET_FLAG_RELOAD, 0);
if Assigned(UrlHandle) then
{ UrlHandle valid? Proceed with download }
begin
FillChar(Buffer, SizeOf(Buffer), 0);
repeat
Result := Result + Buffer;
FillChar(Buffer, SizeOf(Buffer), 0);
InternetReadFile(UrlHandle, @
Linkleri sadece kayıtlı üyeler görebilir. Linkleri görebilmek için Üye Girişi yapın veya ücretsiz olarak Kayıt Olun
until BytesRead = 0;
InternetCloseHandle(UrlHandle);
end
else
{ UrlHandle is not valid. Raise an exception. }
raise Exception.CreateFmt('Cannot open URL %s', ); InternetCloseHandle(NetHandle); end else { NetHandle is not valid. Raise an exception } raise Exception.Create('Unable to initialize Wininet'); end;[/INDENT] [/COLOR]