Fichiers Binaire.

Question

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

cs_ManChesTer · Answer

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.

driss31 · Answer

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

Fichiers Binaire.

2 réponses

Votre réponse

Discussions similaires