Discussion :

[nico0007]

Bonjour,

J'ai un problème:
Je dois transférer des données issues de fichiers.txt via TCP vers une appli Serveur qui tourne sous DOS. Cette appli attend des données de type Integer.
Pour se faire j'ai chargé le fichier dans un Memo, puis envoyé le contenu du Memo par TCP sur le port spécifié. (peut être y a t'il une meilleure façon de faire...)
A l'arrivée, je reçois bien les données, cependant il semble que l'application les prend pour des données de type ASCII (normal si issues d'un Memo??) car elle me renvoi les données traduites en décimale...

Quelqu'un peut il donc bien me dire s'il a une solution, ou en tout cas m'indiquer comment spécifier que les données dans un Memo sont de type Integer???

Merci

[Raylemon]

La solution qui me viendrait à l'esprit serait de transtyper chaque ligne du Memo, et de mettre le tout dans un tableau...

de tête

Code :

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

1
2
3
4
5
6
7
8
 
procedure convert(lines: TStrings, out range: array of Integer);
var 
  i : integer;
begin
  SetLength(range, lines.Count); //crée un tableau possédant n lignes
  for i:=0 to lines.count-1 do range[i] := StrToInt(lines[i]);
end;

Au lieu d'un TStrings, tu auras un tableau d'integer
Pour le reste, à toi de voir comment l'utiliser...

Il y a peut-ête un moyen plus simple, mais c'est le seul que je vois...

J'espère que ça va t'aider

[nico0007]

Merci pour ta réponse.