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: 2432 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

milos_silni

Član broj: 63565
Poruke: 104
212.200.180.*

ICQ: 231526870
Sajt: www.mprosoft.net


+1 Profil

icon open exe file for binary outoput11.01.2007. u 22:29 - pre 179 meseci
1. Kako da otvorim exe file u Tpascalu za binarno citanje i pisanje
Probao sam sa pretrazivanjem ali nisam nasao odgovor!!!
poz
 
Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2671



+76 Profil

icon Re: open exe file for binary outoput11.01.2007. u 23:14 - pre 179 meseci
> 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;


 
Odgovor na temu

morlic
Milos Orlic
Beograd

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



+1 Profil

icon Re: open exe file for binary outoput12.01.2007. u 00:04 - pre 179 meseci
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]
 
Odgovor na temu

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

[ Pregleda: 2432 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

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