Protokoll selbst implementieren

matze · Verfasst: Mi 27.02.08 11:13

Hallo.

Ich stehe im Moment vor der Aufgabe, dass ich das UDP Protokoll des Mac-Programmes Growl implementieren muss.
Leider habe ich sowas noch nie gemacht und bin im Moment auch ein bisschen hilflos.

Das sind meine bisherigen Bemühungen. Der Code ist grauselig, aber ich wollte einfach mal nur einen Test programmieren.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:

var
  Form1: TForm1;
  Growl_App_Name: String = 'Matze';
  Growl_Notification_Name: String = 'Hinweis';
const
  Growl_Protocol_version: byte = 1;
  Growl_Type_Registration: byte = 5;
  Growl_Type_Notification: byte = 1;


procedure Send;
var
  buf: TStringStream;
  len: integer;
  sbuf:string;
begin
  Growl_App_Name := AnsiToUtf8(Growl_App_Name);
  Growl_Notification_Name := AnsiToUtf8(Growl_Notification_Name);
  buf := TStringStream.Create('');
  try
    buf.WriteBuffer(Growl_Protocol_version,SizeOf(Growl_Protocol_version));
    buf.WriteBuffer(Growl_Type_Registration,SizeOf(Growl_Type_Registration));
    len := length(Growl_App_Name);
    buf.WriteBuffer(len,2);
    len := 1;
    buf.WriteBuffer(len,1);
    buf.WriteBuffer(len,1);
    buf.WriteBuffer(Growl_App_Name,length(Growl_App_Name));
    buf.WriteBuffer(len,2);
    buf.WriteBuffer(Growl_Notification_Name,length(Growl_Notification_Name));
    buf.WriteBuffer(len,2);

    sbuf := buf.DataString;

    IdUDPClient1.Send('192.168.0.37',9887,sbuf);

  finally
    buf.Free;
  end;
end;

Die Protokoll-Spezifiationen sind hier. Das soll angeblich auch recht einfach gehen, aber anscheinend bin ich zu blöd dazu.
Es gibt auch einige Implementierungen in PHP (z.b. hier), aber dazu kann ich zu wenig PHP um das nach Delphi portieren zu können.

Kann mir jemand bei meinem Problem helfen!

Danke schon mal im voraus !

_________________
In the beginning was the word.
And the word was content-type: text/plain.

opfer.der.genauigkeit · Beiträge: 754 Erhaltene Danke: 1

Wo scheitert es denn genau?
Evtl. entspricht der Ausgabebuffer nicht dem Protokoll? *tipp ins blaue*

_________________
Stellen Sie sich bitte Zirkusmusik vor.

matze · Verfasst: Mi 27.02.08 11:58

ja vermutlich. Also das Programm, das ich ansprechen möchte (Growl) zeigt auf jeden Fall keine Reaktion. Ich habe zum Test mal die PHP Implementierungen ausprobiert. Da geht es.
Also vermutlich setzt ich die Protokollspezifikationen nicht richtig um.

Die Frage ist jetzt: Wie macht man das richtig ?

_________________
In the beginning was the word.
And the word was content-type: text/plain.

opfer.der.genauigkeit · Beiträge: 754 Erhaltene Danke: 1

Ich kann es leider nicht testen, den PHP-Code kann ich dir aber gerne übersetzen, wenn dir das weiterhelfen würde.
Bezweifel ich aber irgendwie.

Meine Vorgehensweise wäre folgende.

Ich würde ein packed record definieren und die Werte schreiben, die ich an den jeweiligen Protokolldefinitionen haben moechte.
Dann würde ich das Ergebnis in einen Bytearray kopieren (imho ist das aber nicht mal noetig)...

Da ich leider auch nicht testen kann, kann ich nur theoretische Ansätze bieten.
Was mir im PHP-Code aufgefallen ist, für pack werden noch zusaetzliche Formatierungsangaben gemacht. Evtl. gibt dir das weiteren Aufschluß darüber, was evtl. nicht stimmt.

Und vergleiche dochmal den Buffer vom PHP-Code mit deinem. :gruebel:

//Edit: Wenn du mit anderen Sprachen besser bewandert bist (z.B. C++), dann schau doch mal bei koders.com, ob du da den Code findest.

_________________
Stellen Sie sich bitte Zirkusmusik vor.

Sinspin · Verfasst: Mi 27.02.08 13:01

Was mir auffällt ist, das du TStringStream verwendest.
Eigentlich stört es nicht sonderlich was für einen Stream man nimmt aber könnte es sein das bei dieser Variante irgendwas vor oder hinter den Daten steht das da nicht hinsoll?
Delphi hat ja die Angewohnheit vor Strings immer die Länge schreiben zu müssen. Oder einen Zeilenumbruch am Ende anzufügen.

_________________
Wir zerstören die Natur und Wälder der Erde. Wir töten wilde Tiere für Trophäen. Wir produzieren Lebewesen als Massenware um sie nach wenigen Monaten zu töten. Warum sollte unser aller Mutter, die Natur, nicht die gleichen Rechte haben?

matze · Verfasst: Mi 27.02.08 13:07

Den StringStream habe ich genommen, weil die Indy UDP Komponente nur Strings annimmt...

@Opfer.der.genaugkeit: Wie soll ich denn meinen Output mit dem von dem PHP Script vergleichen?

_________________
In the beginning was the word.
And the word was content-type: text/plain.

opfer.der.genauigkeit · Beiträge: 754 Erhaltene Danke: 1

Z.B.: echo oder var_dump und anzeigen lassen.

_________________
Stellen Sie sich bitte Zirkusmusik vor.

Xentar · Verfasst: Mi 27.02.08 13:33

Man könnte auch mit diversen Tools, z.B. WireShark, den Netzwerktraffic mitschneiden, und dann die Pakete, die das PHP Script sendet, mit deinen vergleichen.

Edit: Ich seh grad, du sendest keine MD5 Checksumme mit? Vllt. liegts schon daran?

matze · Verfasst: Mi 27.02.08 13:34

opfer.der.genauigkeit hat folgendes geschrieben:

Z.B.: echo oder var_dump und anzeigen lassen.

Das bringt mir nichts, da seh ich nur Kauderwelsch (ist ja auch ein binär Protokoll)

Die Checksumme kann ich ja laut dem Protokoll auch weg lassen, wenn ich den Typ 5 (NoAuth) nehme.

_________________
In the beginning was the word.
And the word was content-type: text/plain.

opfer.der.genauigkeit · Beiträge: 754 Erhaltene Danke: 1

Probier es mal mit sprintf.
Damit kannst du das Ausgabeformat bestimmen, Hex z.B.

_________________
Stellen Sie sich bitte Zirkusmusik vor.

Narses · Verfasst: Mi 27.02.08 14:12

Moin!

Mir ist aufgefallen: Ich kann in der Doku nix über den byte-sex finden. :gruebel:

Die MAC-Jungs stehen ja auf msb (aus Motorola-Zeiten, von mir aus auch network-byte-order, was einem besser gefällt), aber du schreibst in deinem Code lsb (eben Intel-typisch). Da schonmal nach geschaut? :nixweiss:

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

matze · Verfasst: Mi 27.02.08 14:23

na gut, aber so an sich: wäre das Protokoll denn technisch richtig implementiert?
Also mache ich das richtig mit dem WriteBuffer Zeug und dem Versenden mit dem String?

_________________
In the beginning was the word.
And the word was content-type: text/plain.

Narses · Verfasst: Mi 27.02.08 14:33

Moin!

matze hat folgendes geschrieben:

na gut, aber so an sich: wäre das Protokoll denn technisch richtig implementiert?

Sieht so aus (hab´s aber auch nicht im Detail nachgezählt und abgehakt...) :nixweiss:

matze hat folgendes geschrieben:

Also mache ich das richtig mit dem WriteBuffer Zeug und dem Versenden mit dem String?

Schick´s dir doch einfach mal selbst und mach einen HEX-Dump, den vergleichst du dann mit der Doku. Wenn die Anzahlen/Positionen stimmen, dann kannste nochmal die ByteOrder tauschen. :idea:

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

matze · Verfasst: Mi 27.02.08 14:40

OK ich habe mir jetzt mal WireShark geladen und damit die beiden Pakete verglichen:

Das von PHP, das funktioniert:

markieren

Quelltext

1:
2:
3:

00000000  01 00 00 05 01 01 4d 61  74 7a 65 00 07 57 61 72 ......Ma tze..War
00000010  6e 69 6e 67 00 89 c8 e4  35 33 a8 e8 08 19 f0 d5 ning.... 53......
00000020  62 d9 cd 7f 88                                   b....

Meins, das nicht funktioniert:

markieren

Quelltext

1:
2:

00000000  01 05 05 00 01 01 28 c3  aa 00 c0 01 00 c0 20 ac ......(. ...... .
00000010  00 01 8d 40 01 00                                ...@..

Sagt das den Experten was?
Also immerhin sehe ich, dass der Name der Application (Matze) nicht mitgesendet wird, bei meinem Output...

_________________
In the beginning was the word.
And the word was content-type: text/plain.

Narses · Verfasst: Mi 27.02.08 15:00

Moin!

matze hat folgendes geschrieben:

Sagt das den Experten was?

Jup.

matze hat folgendes geschrieben:

Das von PHP, das funktioniert:

markieren

Quelltext

1:
2:
3:

00000000  01 00 00 05 01 01 4d 61  74 7a 65 00 07 57 61 72 ......Ma tze..War
00000010  6e 69 6e 67 00 89 c8 e4  35 33 a8 e8 08 19 f0 d5 ning.... 53......
00000020  62 d9 cd 7f 88                                   b....

Also, wie ich schon vermutete: msb! :idea:

Das schreibst du also schonmal "falsch rum".

matze hat folgendes geschrieben:

Also immerhin sehe ich, dass der Name der Application (Matze) nicht mitgesendet wird, bei meinem Output...

Stimmt...

Passiert mir auch immer wieder, du schreibst den String-Pointer, nicht den Inhalt:

markieren

Delphi-Quelltext

1:	buf.WriteBuffer(PChar(Growl_App_Name)^,length(Growl_App_Name));

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

matze · Verfasst: Mi 27.02.08 15:12

Ah. verdammt. Da hätte ich aber auch selber drauf kommen können !
Und wie macht man das mit dem MSB?

_________________
In the beginning was the word.
And the word was content-type: text/plain.

Narses · Verfasst: Mi 27.02.08 15:28

Moin!

matze hat folgendes geschrieben:

Ah. verdammt. Da hätte ich aber auch selber drauf kommen können !

matze hat folgendes geschrieben:

Und wie macht man das mit dem MSB?

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

uses
  ..., WinSock;

function htonl;             external    winsocket name 'htonl';
function htons;             external    winsocket name 'htons';
function ntohl;             external    winsocket name 'ntohl';
function ntohs;             external    winsocket name 'ntohs';

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

matze · Verfasst: Mi 27.02.08 15:31

Äääähhh... Ich steh aufm Schlauch.

Wie wendet man das an?

_________________
In the beginning was the word.
And the word was content-type: text/plain.

Narses · Verfasst: Mi 27.02.08 15:35

Moin!

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

var
  HostBytes, NetBytes: Word;
begin
  HostBytes := 7;
  NetBytes := htons(HostBytes);
  ShowMessage(IntToHex(HostBytes,4)+#13+IntToHex(NetBytes,4));

Vorsicht Falle, die Anzeige ist genau andersrum, als die Bytefolge im Speicher! :mahn:

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

matze · Verfasst: Mi 27.02.08 15:59

markieren

Quelltext

1:
2:

00000000  01 05 00 05 01 01 4d 61  74 7a 65 00 07 57 61 72 ......Ma tze..War
00000010  6e 69 6e 67                                      ning

Mein neuer Code

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:

var
  buf: TStringStream;
  len: byte;
  app_length: Word;
  sbuf:string;
begin
  Growl_App_Name := AnsiToUtf8(Growl_App_Name);
  Growl_Notification_Name := AnsiToUtf8(Growl_Notification_Name);
  buf := TStringStream.Create('');
  try
    //Version schreiben
    buf.WriteBuffer(Growl_Protocol_version,SizeOf(Growl_Protocol_version));
    //Typ schreiben
    buf.WriteBuffer(Growl_Type_Registration,SizeOf(Growl_Type_Registration));
    //Länge des Applikationsnamen schreiben
    app_length := htons(length(Growl_App_Name));
    buf.WriteBuffer(app_length,SizeOf(app_length));
    //Anzahl der Warnungen und der Defaultwarnungen schreiben
    len := 1;
    buf.WriteBuffer(len,1);
    buf.WriteBuffer(len,1);
    // Namen der Applikation schreiben
    buf.WriteBuffer(PChar(Growl_App_Name)^,length(Growl_App_Name));
    // Länge der Warnung schreiben
    app_length := htons(length(Growl_Notification_Name));
    buf.WriteBuffer(app_length,SizeOf(app_length));
    // Namen der Warnung schreiben
    buf.WriteBuffer(PChar(Growl_Notification_Name)^,length(Growl_Notification_Name));
    buf.WriteBuffer(pos,sizeOf(pos));

    sbuf := buf.DataString;
    IdUDPClient1.Send('192.168.0.37',9887,sbuf);
  finally
    buf.Free;
  end;

Also soweit schaut das schon gut aus. Danke mal an alle bis hierher !!

Ich bin jetzt in der Spezifikation so weit, dass ich eine "Notification" schreiben kann. So.
Laut Spezifikation kann man dann noch mehrere Warnungen wiederholen, was ich aber nicht mache. Am Ende soll man aber noch einen Index auf die Warnung schreiben. (Der DEFAULTS Block). Da muss ich ehrlich sagen, dass ich nicht verstehe, wie ich das machen soll...

_________________
In the beginning was the word.
And the word was content-type: text/plain.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme