Avatar billede fundus Nybegynder
13. maj 2008 - 18:39 Der er 5 kommentarer

Loading af memo

Har 2 programmer som køre over 1 txt fil men vis den ene bruger den kan den anden jo ik. Der for sender den en fejl, men vil gerne havde det kommer en besked op hvor der står at filen er i brug :)

Nogle som kan hjælpe ? :=D
Avatar billede vallemanden Nybegynder
13. maj 2008 - 19:24 #1
function IsFileInUse(FileName: TFileName): Boolean;
var
  HFileRes: HFILE;
begin
  Result := False;
  if not FileExists(FileName) then Exit;
  HFileRes := CreateFile(PChar(FileName),
                        GENERIC_READ or GENERIC_WRITE,
                        0,
                        nil,
                        OPEN_EXISTING,
                        FILE_ATTRIBUTE_NORMAL,
                        0);
  Result := (HFileRes = INVALID_HANDLE_VALUE);
  if not Result then
    CloseHandle(HFileRes);
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  if IsFileInUse('c:\test\test.exe') then
    ShowMessage('Filen er i brug.');
  else
    ShowMessage('Filen er ikke  ibrug.');
end;
Avatar billede fundus Nybegynder
13. maj 2008 - 19:47 #2
den viser stadig fejl vis de 2 programmer saver til txt filen på sam tidig :(
Avatar billede Slettet bruger
13. maj 2008 - 21:48 #3
vallemandens kode går jo kun ind og tjekker om filen er i brug og løser ikke dit problem at der er 2 bruger om den samme txt fil.

Så det er da klart at der kommer en fejl når 2 brugere prøver at gemme filen på samme tid.
Avatar billede vallemanden Nybegynder
13. maj 2008 - 21:54 #4
ja det har jeg så forstået nu, det er ikke loading af txt fil til memo, men gemme en txt fil
Avatar billede fundus Nybegynder
14. maj 2008 - 20:52 #5
jaa kan i hjælpe mig med  det :)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester