Discussion :

[ShaiLeTroll]

"a ne surtout pas faire cela", qu'est ce qu'il ne faut pas faire ?

Sinon entièrement d'accord avec Clorish, tous types géré par référence ne peut pas être sérializé directemement ... mais comme ceci par exemple, ou la partie simple de TepcConfigControllerReportItem est écrite directement, alors que les chaines sont écrites une par une, et à noté que l'on ne passe pas la chaine mais chaine[1] pour passer le début de la chaine (sinon cela écrit à partir du pointeur la mémoire adjacente et non la chaine, voir violation d'accès)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
 
  TepcConfigControllerReportItem = record
    IsError: Boolean;
    NumLine: Integer;
    CheckType: string;
    SKV: string; // Ini [Section]Key=Value
    Msg: string;
  end;
 
...
 
class function TepcConfigController.ReadReport(const ReportFileName: string): Boolean;
 
  function StringRead(var F: File; out S: string): Integer;
  begin
    BlockRead(F, Result, SizeOf(Result));
    SetLength(S, Result);
    if Result > 0 then
      BlockRead(F, S[1], Result, Result);
  end;
 
 
var
  ReportFile: file;
  Item: TepcConfigControllerReportItem;
begin
  _CCReport.Clear();
  if FileExists(ReportFileName) then
  begin
    AssignFile(ReportFile, ReportFileName);
    Reset(ReportFile, 1);
    try
      while not Eof(ReportFile) do
      begin
        BlockRead(ReportFile, Item.IsError, SizeOf(Item.IsError));
        StringRead(ReportFile, Item.CheckType);
        StringRead(ReportFile, Item.SKV);
        StringRead(ReportFile, Item.Msg);
        _CCReport.Add(Item);
      end;
    finally
      CloseFile(ReportFile);
    end;
  end;
 
  Result := _CCReport.Count > 0;
end;

écrit via un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
  function StringWrite(var F: File; const S: string): Integer;
  begin
    Result := Length(S);
    BlockWrite(F, Result, SizeOf(Result));
    if Result > 0 then
      BlockWrite(F, S[1], Result, Result);
  end;

[sjrd]

"a ne surtout pas faire cela", qu'est ce qu'il ne faut pas faire ?

Les enregistrer directement dans un stream/un fichier

J'ai surtout fait remarquer cela car Clorish disait que c'était pratique pour sauvegarder facilement un record complet

[Clorish]

J'ai surtout fait remarquer cela car Clorish disait que c'était pratique pour sauvegarder facilement un record complet

c'est pour ca que je parlais de packed record

[ShaiLeTroll]

Ah oui, le Packed Record, ne change en rien la gestion des pointeurs, une chaine longue sera toujours contenu sur 4 octets dans la structure, packed ne réglemente que l'alignement des variables, hors une ansistring c'est un pointeur, par contre une shortstring c'est un tableau fixe, dans ce cas, il est manipulable directement, il y a les mêmes limitations, pour un CopyMemory entre deux structures qui est différents d'une affectation qui utilise la fonction _CopyRecord

[le merou]

Pour répondre rapidos à la question initiale :

Delphi je suis incapable de transcrire dans une variable integer un nombre entier codé en deux bytes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
function ByteToWord(High : Byte; Low: Byte) : Word;
begin
  result := High shl 8;
  result := result + Low;
end;

Word étant plus petit que Integer tu peux le mettre dans un Integer
J'utilise l'operateur shl (Shift Left = Décalage vers la gauche) pour décaler de 8 bits tous les bits du mot.

[bobish]

Bonjour,

Je doit faire quasiment la même fonction que amamisou... J'ai essayé de récupérer à partir d'un tableur des valeurs en binaires :
A1 : 10001110
A2 : 10100101

J'ai essayé d'utiliser la fonction que tu as présenté Le Merou et du coup je ne récupère pas les bonnes données

Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
var
  vXLApp: variant;
  vXLWorkbook: variant;
  vXLWorksheet: variant;
 
function TfmPrinc.ByteToWord(High : Byte; Low: Byte) : Word;
begin
  result := High shl 8;
  result := result + Low;
end;
 
 
procedure TfmPrinc.btConversionClick(Sender: TObject);
var
Resultat:Variant;
MSB, LSB:Byte;
Conversion:Word;
begin
vXLApp := CreateOleObject('Excel.Application');
vXLApp.Visible:=False;
vXLWorkbook:=vXLApp.Workbooks.open(sChemin);
vXLWorksheet:=vXLWorkbook.sheets[1];
resultat:=vXLWorksheet.Range['A1:A2'].value;
MSB:=resultat[1,1];
LSB:=resultat[2,1];
Conversion:=ByteToWord(MSB,LSB);
ShowMessage(IntToStr(Conversion));
vXLApp.Quit;
vXLApp := unassigned;
end;

Est ce que cela ne viendrait pas du fait que Resultat soit de type variant que j'y mette des bytes ?

[Cl@udius]

Salut

Le problème vient certainement du fait que les cellules A1 et A2 sont lues comme des integers.

Essaye comme ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
uses
  ComObj, Math;
 
function BinToDec(AValue: string): Word;
var
  I: Integer;
  C: Char;
begin
  result := 0;
  for I := 1 to Length(AValue) do
  begin
    C := AValue[i];
    result := result + Trunc(StrToInt(C) * IntPower(2, Length(AValue) - I));
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  Resultat: Variant;
  Conversion: Word;
begin
  vXLApp := CreateOleObject('Excel.Application');
  vXLApp.Visible := False;
  vXLWorkbook := vXLApp.Workbooks.Open(sChemin);
  vXLWorksheet := vXLWorkbook.Sheets[1];
  try
    resultat := vXLWorksheet.Range['A1:A2'].Value;
    Conversion := BinToDec(IntToStr(resultat[1,1]) + IntToStr(resultat[2,1]));
    ShowMessage(IntToStr(Conversion));
  finally
    vXLApp.Quit;
    vXLApp := unassigned;
  end;
end;

@+ Claudius

[bobish]

Ok merci je vais tester !

[bobish]

Ok merci çà marche, c'est vrai que çà ne pouvais pas trop marcher étant donné que je récupérais des chaines de caractères !