Utilisation de TIdCompressionIntercept

Version imprimable

28/08/2006, 13h21
Peck777

Utilisation de TIdCompressionIntercept

Bonjour,

J'aimerais utiliser le composant TIdCompressionIntercept de la librairie Indy 10 (sous BDS 2006) pour transférer des fichers entre plusieurs postes, via IdTCPServer et TIdTCPClient.

J'ai vu dans la FAQ un article très simple, mais qui semble fonctionner en Delphi 7, mais pas en 2006.
Même en triturant le code dans tous les sens, sans oublier de joindre les .obj de la zlib, comme indiqué dans la doc d'Indy ; j'ai toujours une exception Connection Closed Gracefully !!

sans la compression, inutile de vous dire que ça fonctionne.... :mouarf:

quelqu'un aurait-t-il une idée ? ou autre chose à me proposer ?

Merci
29/08/2006, 14h25
tourlourou

es-tu certain que cette exception n'est pas levée uniquement quand tu lances à partir de l'IDE, et non en fonctionnement réel ?

bonjour,

j'ai la même exception en fonctionnement normal

voilà le code du serveur:

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
25
26
27
28
29
30
 
procedure TServiceServer.TCPServerConnect(AContext: TIdContext);
begin
  with AContext.Connection.IOHandler do
  begin
    Intercept := TIdCompressionIntercept.Create(nil); 
    TIdCompressionIntercept(Intercept).CompressionLevel := 9; 
  end;
end;
 
procedure TServiceServer.TCPServerDisconnect(AContext: TIdContext);
begin
  with AContext.Connection.IOHandler do
  begin
    if Assigned(Intercept) then
    begin
      Intercept.Free;
      Intercept := nil;
    end;
  end;
end;
 
procedure TServiceServer.TCPServerExecute(AContext: TIdContext);
var
  Cmd : string;
begin
  Cmd := AContext.Connection.IOHandler.ReadLn;
  ShowMessage('message reçu :'+Cmd);
  AContext.Connection.IOHandler.WriteLn('OK');
end;

et le code client:

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
25
26
27
 
procedure TFormAdmin.Button1Click(Sender: TObject);
var
  Res : string;
begin
  with TCPClient do
  begin
    Host := '192.168.72.9';
    Port := 9020;
    Connect;
    with IOHandler do
    begin
      IOHandler.Intercept := TIdCompressionIntercept.Create(nil); 
      TIdCompressionIntercept(IOHandler.Intercept).CompressionLevel := 9;
      WriteLn('TEST');
      Res := ReadLn;
      if Assigned(Intercept) then
      begin
        Intercept.Free;
        Intercept := nil;
      end;
    end;
    Disconnect;
 
  end;
  ShowMessage(Res);
end;

Merci pour vos commentaires

rappel: sans utiliser le compresseur, ça marche.