Threds - nogen der gider give et mini kursus - gerne et eksempel

du ligger bare koden i trådens execute procedure - se tidligere spm http://www.eksperten.dk/spm/67410

Prøv her :

http://www.pergolesi.demon.co.uk/prog/threads/ToC.html

eller gå op på www.undu.com og så efter denne artikel : \"Multithreading - The Delphi Way\"

Martinlinds link er rigtigt godt - jeg mente selv, at jeg var ret ferm til multithreading, men fik da nogle gode tips fra artiklen alligevel.

Jeg kan ikke rigtig få det til at funke, kan det være fordi jeg kalder en funktion inde i min Thead - er det ikke tilladt ?

Næh - for nu lagde jeg funktionen derind, det hjalp ikke.......

Her er lidt af koden

type
  TUpdateFileThead = class(TThread)
  private
  protected
    procedure Execute; override;
  end;



procedure TUpdateFileThead.Execute;
var
  hSession, hURL: HInternet;
  Buffer: array[1..BufferSize] of Byte;
  BufferLen: DWORD;
  f: File;
  sAppName, FileURL, FileName: string;
begin
Filename := ExtractFilePath(Application.Exename) + \'FangstDB.new\';
fileURL  := \'http://www.blackend.dk/FangstDB.exe\';
sAppName := ExtractFileName(Application.ExeName);
hSession := InternetOpen(PChar(sAppName),
                INTERNET_OPEN_TYPE_PRECONFIG,
              nil, nil, 0);
try
  hURL := InternetOpenURL(hSession,
            PChar(fileURL),
            nil,0,0,0);
  try
  AssignFile(f, FileName);
  Rewrite(f,1);
  repeat
    InternetReadFile(hURL, @Buffer,
                    SizeOf(Buffer), BufferLen);
    BlockWrite(f, Buffer, BufferLen)
  until BufferLen = 0;
  CloseFile(f);
  finally
  InternetCloseHandle(hURL)
  end
finally
  InternetCloseHandle(hSession)
end
end;

procedure TfrmMain.Hentsenestepatch1Click(Sender: TObject);
var
T: TUpdateFileThead;
begin
T.Create(True);
T.Resume;
end;

Det giver fejl ved Resume, og fungerer slet ikke hvis jeg fjerner det.

Det giver en fejl - hvilken fejl?

AccessViolation - og uden T.Resume, kører det slet ikke

Prøv at skrive:

  T := TUpdateFileThread.Create(True)

i stedet for T.Create(True)

Det er IKKE noget du skal prøve det er noget du SKAL, du skal create en instance af dit tråd object og lægge den i en var, ellers for du en accessviolation. Der findes dog en måde at undgå denne var, men kun hvis man ikke har brug for at refere til den igen.

VAR
  obj : TObject;


begin
  obj := TObject.Create;
// eller
  with TObject.Create do
  begin
      // her kan man bruge det object man lige har erklæret, men kun mellem begin..end, bemærk at det er Typen man creater
  end;
end;

/Martin