Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

open exe file for binary outoput

[es] :: Pascal / Delphi / Kylix :: open exe file for binary outoput

[ Pregleda: 856 | Odgovora: 2 ]

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

milos_silni
milos_silni

Član broj: 63565
Poruke: 85
212.200.180.*

ICQ: 231526870


Profil

icon open exe file for binary outoput11.01.2007. u 22:29

1. Kako da otvorim exe file u Tpascalu za binarno citanje i pisanje
Probao sam sa pretrazivanjem ali nisam nasao odgovor!!!
poz
11.01.2007. u 22:29 

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 1464
*.adsl-1.sezampro.yu.



Profil

icon Re: open exe file for binary outoput11.01.2007. u 23:14
> 1. Kako da otvorim exe file u Tpascalu za binarno citanje i pisanje

Code:

var
  s: TFileStream;
begin
  s := TFileStream.Create(FileName, fmOpenReadWrite or fmShareDenyNone);
  try
    ...
  finally
    s.Free;
  end;
end;


11.01.2007. u 23:14 

morlic
Milos Orlic
Beograd

Moderator
Član broj: 6081
Poruke: 732
*.dynamic.sbb.co.yu.



Profil

icon Re: open exe file for binary outoput12.01.2007. u 00:04
Koliko me sluzi secanje u TPascalu ide nekako ovako:

Code:

Var
  f: file;
begin
  Assign(f, 'c:\prg.exe');
  FileMode:= 2;
  Reset(f);
  
  // Za kretanje kroz fajl, citanje i pisanje
  Seek(...)
  BlockRead( ... )
  BlockWrite( ...)


  Close(f);
end;


Pogledaj help za date funkcije. Ako pokusavas da program otvori samog sebe, to ces moci samo u rezimu za citanje, a ne i za pisanje

[Ovu poruku je menjao morlic dana 12.01.2007. u 01:22 GMT+1]
12.01.2007. u 00:04 

[es] :: Pascal / Delphi / Kylix :: open exe file for binary outoput

[ Pregleda: 856 | Odgovora: 2 ]

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.