[ reikonija @ 10.10.2011. 20:25 ] @
Znaci pokusao sam preko idhttp i get-a opcije ali cim iskoci neki bug na stranici on izbaci error pa sam citao i wininet-u i odlucio upotrebiti ovaj kod: Code: function DownloadFile(const Url: string): string; var NetHandle: HINTERNET; UrlHandle: HINTERNET; Buffer: array[0..1024] of Char; BytesRead: dWord; begin Result := ''; NetHandle := InternetOpen('Delphi 7.x', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0); if Assigned(NetHandle) then begin UrlHandle := InternetOpenUrl(NetHandle, PChar(Url), nil, 0, INTERNET_FLAG_DONT_CACHE, 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, @Buffer, SizeOf(Buffer), BytesRead); until BytesRead = 0; InternetCloseHandle(UrlHandle); end else { UrlHandle is not valid. Raise an exception. } raise Exception.CreateFmt('Cannot open URL %s', [Url]); InternetCloseHandle(NetHandle); end else { NetHandle is not valid. Raise an exception } raise Exception.Create('Unable to initialize Wininet'); end; Pa onda idem : memo1.lines.text:=DownloadFile(link do stranice); i to ide solidno brzo, ali kada hocu da otvorim 10 stranica npr iz listbox-a: for i=0 to listbox1.items.count-1 do memo1.lines.text:=DownloadFile(listbox1.items.strings); nastaje urnebes :) , program uspori , pobeli , procesor ode nebu pod oblake , ne znam kako drugo da ucitam te stranice u memo a da mi program ne poludi . |