TIndyEXTClass = Klasa ({$IFDEF VER210}????? // Delphi 2010 indy 10 {$else} TIdTCPClient // D7 INDY 9 {$endif})
funkcja DoSomething (.....): Boolowski;
końcówka;
funkcja TIndyEXTClass.DoSomething (.....): Boolowski;
var ftmpStream: TFileStream;
zaczynać
jeżeli Łączyć wtedy
zaczynać
próba
zaczynać
// - > Rozumieć Rozkaz??
WriteBuffer (MyData, Sizeof (MyData), true);
ReadBuffer (MyData, Sizeof (MyData));
|