[Kailon]

Доброго времени суток, Господа!
Подскажите, пожалуйста, как реализовать данный код в Delphi:

Код:

client = new Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp);
client.Connect("127.0.0.1", 12345);
byte[] defaultSet = new byte[55];
byte[] remdata = new byte[64];
byte[] send = { 0x01, 0x00, 0x15, 0x0c, 0x00 };
client.Send(send);
client.Receive(remdata);

Через какие компоненты работать?

[lmikle]

TClientSocket или через TIdTcpClient.
Можно скачать другие библиотеки, я бы попробовал Synapse.

[Kailon]

Я правильно понимаю?
C#

Код:

                defaultSet.SetValue((byte)((byte)remdata.GetValue(12) ^ 0x9C), 47);
                defaultSet.SetValue((byte)((byte)remdata.GetValue(13) ^ 0xC8), 48);
                defaultSet.SetValue((byte)0x3a, 39);
                defaultSet.SetValue((byte)0x4b, 40);

Delphi

Код:

      DefaultSet[47] := RemData[12] XOR $9C;
      DefaultSet[48] := RemData[13] XOR $C8;
      DefaultSet[39] := $3A;
      DefaultSet[40] := $4B;

[lmikle]

Ну да, вроде похоже.