[Kailon]

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

Код:

1 2 3 4 5 6 7

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#

Код:

1 2 3 4

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

Код:

1 2 3 4

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

[lmikle]

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