Fichiers Binaire.

Signaler
Messages postés
83
Date d'inscription
jeudi 18 juillet 2002
Statut
Membre
Dernière intervention
8 octobre 2008
-
Messages postés
1
Date d'inscription
lundi 3 janvier 2005
Statut
Membre
Dernière intervention
3 janvier 2005
-
Salut !

Voila j'essaye de faire une fonction qui lis un block par rapport a ce que l'on lui dis mais je n'y arrive pas

Il veux pas accepter ca :

function LireBlock(Offset : Integer; Buffer : Array [1..1024] Of Char) :String;
var
F : File;
begin
{$I-}
AssignFile(F,'SETTINGS.DAT');
Reset(F,1);
Seek(F, Offset);
BlockRead(F, Buffer, SizeOf(Buffer));
Result := Buffer;
{$I+}
end;

Il aime pas : Buffer : Array [1..1024]

Sinon en fait je voudrais que ca fasse :

LireBlock(Offset, Regler le Buffer)
LireBlock($C3, 1)

Enfin bref, le but est de lire un fichier !

Je connais une partie de la structure

Je c'est que je dois aller a l'offset $C3 et je dois relever la valeur Hexa !

Mais deja je ne c'est pas si utiliser FileStream ou alors la methode standard !!

Aussis pour ne pas faire plein de fois le meme code, j'ai voulu faire cette fonction !

Car c'est pas toujours à $C3
Apres je dois relever ailleur.

Merci

PS: Le projet est pour l'iBead 100+ pour lire le fichiers SETTINGS.DAT

2 réponses

Messages postés
374
Date d'inscription
vendredi 20 octobre 2000
Statut
Modérateur
Dernière intervention
15 janvier 2021

function LireBlock(Offset : Integer; Buffer : Pchar;BufferSize:Integer) :String;
var
F : File;
begin
{$I-}
AssignFile(F,'SETTINGS.DAT');
Reset(F,1);
Seek(F, Offset);
BlockRead(F, Buffer, BufferSize);
Result := strpas(Buffer);
CloseFile(f);
{$I+}
end;

l'appel:
var buffer:Array[0..1024] of char;

LireBlock(offset,Buffer,1024);

Bon Coding ....

ManChesTer.
Messages postés
1
Date d'inscription
lundi 3 janvier 2005
Statut
Membre
Dernière intervention
3 janvier 2005

salu jaimerai bien savoir coment detecter qui vous bloque sur msn
et je ne c pa komen faire ni ou telecharger ce logiciel svp envoyer moi un courier pr limformation que je demande
merci