Discussion :

[vitipi]

J'ai un problème dans la fonction ChaineVersOctets à la ligne 44.
Quand je l'exécute, il me déclenche à cette ligne, une classe d'exception EAccessViolation avec le message "Violation d'accès à l'adresse ......".
Systématiquement, j'ai une erreur quand j'essaye d'affecter un octet à Resultat [I]
Savez-vous d'où ça provient ? Merci

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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
unit TestUDP;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdGlobal, IdUDPBase, IdUDPServer, IdUDPClient, StdCtrls, ComCtrls ;
 
type
  TEcran = class(TForm)
    Bouton_envoyer_message: TButton;
    Bouton_arreter: TButton;
    RichEdit1: TRichEdit;
    procedure FormCreate(Sender: TObject);
    procedure Bouton_envoyer_messageClick(Sender: TObject);
    procedure Bouton_arreterClick(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
  TArrayByte = Array [1..32] of Byte ;
var
  Ecran: TEcran;
  udp: TIdUDPClient;
  send_data: TIdBytes ; {TArrayByte ;}
  packet: {UTF8}String ; // chaine de caractères - je ne connais pas le type en Delphi
 
implementation
 
{$R *.dfm}
 
         FUNCTION ChaineVersOctets (Chaine : String) : TIdBytes  {TArrayByte} ;
         { CETTE FONCTION transforme une chaine de caractères en suite d'octets. }
VAR
         I : Integer ;
         Octet : Byte ;
         Resultat : TIdBytes{TArrayByte} ;
BEGIN
        { Resultat := TIdBytes.Create () ;}
         FOR I := 0 TO Length (Chaine)-1 DO
         BEGIN
            Octet := Ord (Chaine [I+1]) - 48 ;
            Resultat[I] := Octet;
         END;
         ChaineVersOctets := Resultat 
END ;  { ChaineVersOctets }
    {-------------------------------------------------------------------}
procedure TEcran.FormCreate(Sender: TObject);
CONST
         Vide = '' ;
begin
         RichEdit1.Color := clYellow ;
{         RichEdit1.Lines.SetText (Vide) ;}
         RichEdit1.Lines.Text := Vide
end;
 
 
procedure TEcran.Bouton_arreterClick(Sender: TObject);
begin
         Application.Terminate
end;
 
procedure TEcran.Bouton_envoyer_messageClick(Sender: TObject);
begin
       {  packet := AnsiToUTF8(Memo1.Text) ; }
         packet := RichEdit1.Lines.Text ;
         SetLength(send_data, sizeof(packet)); // créé un flux de bytes équivalent à la longueur de la chaîne
         send_data := ChaineVersOctets (packet);
         udp := TIdUDPClient.Create(nil);
         try
            udp.Host := 'localhost'; // même machine
            udp.Port := 3300; // c'est le port que j'utilise ...
            udp.SendBuffer(send_data);
         finally
            FreeAndNil(udp)
         end
end;
 
end.

[retwas]

Il ne faut pas indiquer la taille du tableau "Resultat" avec un Setlengt avant de l'utiliser ?
Ou peut etre en utilisant un Add() ?

[vitipi]

Merci pour la suggestion, mais ni un SetLength, ni un Add () ne conviennent. Resultat n'est pas un record et ne peut pas accepter ces deux fonctions (dixit le compilateur) !

[exoseven]

tu dois bien sur faire un setLength

Tu peux surement te passer de ta variable temporaire Resultat et utiliser directement Result

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
         FUNCTION ChaineVersOctets (Chaine : String) : TIdBytes  {TArrayByte} ;
         { CETTE FONCTION transforme une chaine de caractères en suite d'octets. }
VAR
         I : Integer ;
         Octet : Byte ;
        // Resultat : TIdBytes{TArrayByte} ;
BEGIN
        { Resultat := TIdBytes.Create () ;}

        setLength(Result,  Length (Chaine));
        
         FOR I := 0 TO Length (Chaine)-1 DO
         BEGIN
            Octet := Ord (Chaine [I+1]) - 48 ;
            Result[I] := Octet;
         END;
        // ChaineVersOctets := Resultat 
END ;  { ChaineVersOctets }

je n'ai pas testé à toi de voir

[vitipi]

Merci pour la solution.
VITIPI

[ShaiLeTroll]

Sinon voir la réponse à la même question dans l'autre sujet "Message d'erreur systématique"

Il existe ReadTIdBytesFromStream qui pourrait lire un TStringStream
ou même ToBytes avec un paramètre String et TIdEncoding