Migration Delphi 7 Delphi xe, violation d'accès
Bonjour,
Je suis en train de migrer une application de Delphi 7 vers Delphi xe.
Je dois ainsi migrer mes composants Indy de Indy 9 vers Indy 10 et mes chaînes de caractères d'AnsiString vers Unicode.
Pour les chaînes de caractères, j'ai convertis sous Delphi xe les string en ansistring (méthode basique mais je n'ai pas trop le temps de faire mieux).
Pour les composants Indy j'ai un problème sur le connect. Mon application tourne, mais au bout de quelques heures génère une violation d'accès sur le connect.
Je bloque depuis 1 mois sur ce problème. Je me permet donc de poser une question sur ce forum.
Merci d'avance pour vos réponses.
Voici un extrait de mon code :
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
| procedure SendBufs;
var
StA, StB, StC: string;
LBuffer : TIdBytes;
begin
with MoteurCaobsBufs.TCPClient do begin
try
ConnectTimeout := 5000;
ReadTimeout := 5000;
if Connected
then begin
try
disconnect;
except
if not(IOHandler.InputBufferIsEmpty)
then IOHandler.InputBuffer.Clear();
Disconnect();
end;
end;
Connect;
except //si la connexion échoue
on e : Exception do begin
TracerCaobsBufs('SendBufs : Exception : ' + E.Message); |