XE2 -> XE7, Änderungen bei INDY

[bernhard_LA]

beim Umstieg von DELPHI XE2 auf Delphi X7 tritt bei folgendem Code diese Fehlermeldung auf

Delphi-Quellcode:

                 var aTCPServerClient : TIdTCPClient;  
                 aTCPServerClient.IOHandler.AllData(TIdTextEncoding.Default);

Fehler:
[dcc32 Fehler] Unit_client.pas(212): E2003 Undeklarierter Bezeichner: 'TIdTextEncoding'
[dcc32 Fehler] Unit_client.pas(212): E2029 ')' erwartet, aber Bezeichner 'Default' gefunden


was muss ich unter XE 7 anpassen ?

[Bernhard Geyer]

Vermutlich liegt TIdTextEncoding jetzt in einer anderen Unit.
Der zweite Fehler ist ein Folgefehler weil er die Klassendeklaration nicht findet.

[hathor]

"For instance, the IdGlobal.TIdTextEncoding class has been replaced with a new IdGlobal.IIdTextEncoding refcounted interface that no longer depends on SysUtils.TEncoding (Embarcadero) or System.Text.Encoding (.NET) anymore (though there are wrappers provided if you still need to use them with Indy). Consequently, the IndyXXXEncoding() functions have been deprecated in favor of new IndyTextEncoding_XXX() functions."
http://www.indyproject.org/sockets/b...130423.en.aspx

[bernhard_LA]

aTCPServerClient.IOHandler.AllData(IIdTextEncoding.Default);
diese an XE 7 , Indy 10.6 angepasste Version liefert jetzt aber diesen Fehler :

[dcc32 Fehler] Unit_client.pas(220): E2018 Record, Objekt oder Klassentyp erforderlich

[himitsu]

IIdTextEncoding ist ein Interface und du brauchst natürlich eine Instanz dieses Typs, sonst kannst du damit nichts machen.

Klassen-Methoden, wie Default vom TEncoding, gibt es da nicht.




Die Indyleute nervt es bestimmt, daß es keinen ordentlichen Freigabemechianismuß für Encoding-Instanzen gibt (außer in den NextGen-Compilern oder den Default-Singletons) und darum nutzen die was Eigenes/Ordentliches.

[bernhard_LA]

wäre es möglich ein kurzes Code Beispiel zu bekommen ?
Ich habe Probleme bei der Umsetzung dieser Informationen

Danke (schon mal im voraus)

[bernhard_LA]

mein gescheiterter Versuch , Code für beide Indy Versionen + Umstellung auf XE 7

Delphi-Quellcode:

var 
  {$IFDEF VER230}
  /// 'DELPHI XE2  nothing to declare here
{$ELSE}
  aIdTextEncoding: IIdTextEncoding;
{$IFEND}


begin
....

{$IFDEF VER230}
  /// 'DELPHI XE2';
  aTCPServerClient.IOHandler.AllData(TIdTextEncoding.default);
{$ELSE}
  /// 'DELPHI XE4 ..... all other compiler versions ';
  aTCPServerClient.IOHandler.AllData(aIdTextEncoding.default);
{$IFEND}
.....

end;