Binær Fil

Er der nogen der kan hjælpe mig med at gemme en binær fil og åbne den igen?

:hot: I Am The Cyborg :hot:

HVIS DU SKAL ÅBNE GEMME FILER SÅ SKAL DU SKRIVE DENNE KODE:

if SaveDialog1.Execute then
begin
Memo1.Lines.SaveToFile(SaveDialog1.FileName);
end;

HVIS DU SKAL ÅBNE FILER SÅ SKAL DU SKRIVE DENNE KODE:

if OpenDialog1.Execute then
begin
Memo1.Lines.LoadFromFile(Opendialog1.FileName);
end;

HÅBER AT DET KUNNE BRUGES...HVIS DET KUNNE BRUGES MÅ JEG FÅ UP´ENE??

SES...SPØRG MIG BARE HVIS DU HAR BRUG FOR HJÆLP

Er der nogen der kan hjælpe mig med at gemme en binær fil og åbne den igen?

:hot: I Am The Cyborg :hot:
if OpenDialog1.Execute then
begin
Memo1.Lines.LoadFromFile(Opendialog1.FileName);
end;

tror denne kode var ment til delphi, denne er til visual basic

<pre>
open "filnavn" for binary as #2
F=lof(2) 'lof <L>engt <O>f <F>ile på åbnede fil nummer 2

'overstående skal kunne bruges i forbindelse med for åbning af filen
for I=1 to f

get (2,I,Bytez) 'get svare til line input og put til print, jeg er ikke sikker på at min parameret
'rækkeflg. er rigtig, men nu vil den aktuelle byte være i variablen bytez
text1.text=text1.text & chr$(bytez) 'bytez ' kan erklæres som integer elelr byte hvor byte vil
'være at fortrukke da denen fylder mest og programafviklingen foregår hurtiger

next
close #2
</pre>

Dette simpel program viser en åbning på en fil for derefter at lave talene om til et tegn der sættes ind i et tekst felt altså blot en lagring af en text fil i binærformat

for skrive kan du bruge samme rutine blot med put i stedet for get

håber det kan hjælpe

mvh.
Thomas Christensen

P.s! hvis der stavefejl som tag dig ikke af dem, jeg gider ikke rette dem nu!

Er der nogen der kan hjælpe mig med at gemme en binær fil og åbne den igen?

:hot: I Am The Cyborg :hot:

Tjek det her... det kan være, det gi'r dig svar: http://www.udvikleren.dk/vis_artikel.php4?id=82

Software is here and now but rock and roll is forever.

Er der nogen der kan hjælpe mig med at gemme en binær fil og åbne den igen?

I Am The Cyborg

Jeg kan jo selv hjælpe!!!
I Am The Cyborg