Indy 10 client <STX>Daten<ETX> senden

[Grizu]

Hi,

erst mal danke für eure Ideen.

Also:

Delphi-Quellcode:

s[0] := #2; // STX
 s[i1] := #3; // ETX

Dann kommt die Fehlermeldung inkompatible Typen, weil s ein TiDBytes ist.

Delphi-Quellcode:

var
   Daten: string;

 msc_client.IOHandler.Write(chr(2) + Daten + chr(3));

Ist eine gute Idee, aber hier kompiliert er auch nicht. Wieder Fehlermeldung inkompatible Typen.

Ich war der Meinung das

Delphi-Quellcode:

s[0] := 2; // STX
 s[i1] := 3; // ETX

die richtige Rahmung ist. Aber anscheinend nimmt der Server das nicht an........
Ich versuch es mal weiter, aber danke euch für den Input.

hier nochmal der code mit der variablen Deklaration:
ich habe das s mal gegen BBytes ersetzt. Ist richtig s ist doof für ein Bytearray, sollte man nicht machen.

Delphi-Quellcode:

procedure TMain_Frm.btn_interface_msc_sendClick(Sender: TObject);
var
BBytes : TIDBytes;
dat, dattmp : String;
character : Char;
b : Byte;
i, a, i1, i2 : Integer;
begin
a := Length(txt_interface_msc_sendstring.text);
dat := txt_interface_msc_sendstring.text;

i1 := 1;
i2 := 1;
setlength(BBytes, i1);

BBytes[0] := 2;  // STX


for i := 1 to a do begin
i1 := i1 + 1;
setlength(BBytes, i1);
BBytes[i1] := ord(dat[i2]);
i2 := i2 + 1;
end;

i1 := i1 + 1;
setlength(BBytes, i1);
BBytes[i1] := 3;  // ETX

msc_client.IOHandler.Write(BBytes);
end;//*****************************************************************************************************************************************

[Sherlock]

Mir ist auch nicht ganz klar, warum Indy uns dieses Hindernis beschert hat, denn immerhin steht in der IdGlobal.pas: TIdBytes = array of Byte; Das ist ja nun wirklich kein Hexenwerk, aber man muss sich damit arrangieren, und immerhin produziert man damit delphibezogene SO-Einträge, was ja gut für die Popularität der Sprache ist

Aber die Unit IdGlobal bietet dann auch gleich die Lösung:
function ToBytes(beinahe alle erdenklichen Datentypen):TIdBytes; overload

Bau Deinen String und pack ihn als Argument da rein, fertig.

Sherlock

[Grizu]

Hallo nochmal,

manchmal einfach Kaffee trinken gehen, Zigarette und dann geht's....


es ist tatsächlich sooooooo einfach:

Delphi-Quellcode:

procedure TMain_Frm.btn_interface_msc_sendClick(Sender: TObject);
var
dat : String;
begin
dat := txt_interface_msc_sendstring.text;

msc_client.IOHandler.Write(2);
msc_client.IOHandler.Write(dat);
msc_client.IOHandler.Write(3);
end;//*****************************************************************************************************************************************

Man muss einfach das STX und ETX in einer einzelnen Message schicken und zwischen drin dann den String.....

Danke Carl dein Ansatz hat mich darauf gebracht.....

[Grizu]

So hab nochmal den Ansatz von Carl getestet und der geht natürlich auch.......

Bei mir war ja s ein TIDBytes deshalb meckert er, wenn man einen String nimmt geht's auch....

Delphi-Quellcode:

procedure TMain_Frm.btn_interface_msc_sendClick(Sender: TObject);
var
dat : String;
begin
dat := txt_interface_msc_sendstring.text;

msc_client.IOHandler.Write(chr(2) + dat + chr(3));
end;//*****************************************************************************************************************************************

Es ist also ein simpler 3 Zeiler......