TIndyEXTClass = Class( {$IFDEF VER210} ????? // Delphi 2010 indy 10 {$else} TIdTCPClient // D7 INDY 9 {$endif} )
function DoSomething ( ..... ): Boolean;
end;
function TIndyEXTClass.DoSomething ( ..... ): Boolean;
var ftmpStream : TFileStream;
begin
if Connected then
begin
try
begin
// -> UnderStand Command ??
WriteBuffer(MyData, Sizeof(MyData),true);
ReadBuffer(MyData, Sizeof(MyData));
|