iam using this code to download some images from web to memory stream inside activex its freezing too much when large image size i asked on the web they told me to put this code inside a thread i fail to do it any help with it ? here is the code

zusammenfalten · markieren

Delphi-Quellcode:

procedure DownloadToStream(const Url: string; ms: TMemoryStream);
var
  hSession : HINTERNET;
  hService : HINTERNET;
  lpBuffer : array[0..1023] of Byte;
  dwBytesRead : DWORD;
  dwBytesAvail : DWORD;
  dwTimeOut : DWORD;
begin
  hSession := InternetOpen('sessionname', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
  if not Assigned(hSession) then Exit;
  try
    hService := InternetOpenUrl(hSession, PChar(Url), nil, 0, 0, 0);
    if hService = nil then
      Exit;
    try
      dwTimeOut := 60000;
      InternetSetOption(hService, INTERNET_OPTION_RECEIVE_TIMEOUT, @dwTimeOut, SizeOf(dwTimeOut));
      if InternetQueryDataAvailable(hService, dwBytesAvail, 0, 0) then
      repeat
      Application.ProcessMessages;
        if not InternetReadFile(hService, @lpBuffer[0], SizeOf(lpBuffer), dwBytesRead) then
          Break;
        if dwBytesRead <> 0 then
          ms.WriteBuffer(lpBuffer[0], dwBytesRead);
      until dwBytesRead = 0;
    finally
      InternetCloseHandle(hService);
    end;
  finally
    InternetCloseHandle(hSession);
  end;
end;

Here is "I asked on the web"
http://stackoverflow.com/questions/3...-using-wininet

yes here where i asked and i try to put the code on thread but fail any help

Your code doesn't show any attempt to utilize a thread, and your problem description is entirely general at best. Where exactly is your problem?

the thing is i dont know from where to start doing threading

Easies solution: Cteate a TThread object and call your function in the execute methode.

i try to do thread like this

markieren

Delphi-Quellcode:

TDownloadThread = class(TThread)
public
  procedure Execute; override;
end;

but on thread excute what should i do

Make your function a methode of your thread object and call that methode.

Zitat von Luckie:

Make your function a methode of your thread object and call that methode.

dont get it how to make my procedure a method it has parmeter to be added by other string and other ms

DownloadToStream(const Url: string; ms: TMemoryStream); any code example will be more better

Add some pubic fields to your thread object for the parameters.