-
Forum: Netzwerke
Delphi
by jeng37,
4. Nov 2015
@Klaus oder jemand der mir weiter helfen könnte.
Ich hätte da ein paar Fragen, zu deiner lösung.
Ref: http://www.delphipraxis.net/1311438-post18.html
header = record
STX : Byte; // ansiChar
IdTo: Byte;
-
Forum: Netzwerke
Delphi
by jeng37,
25. Aug 2015
Ja auch mit WriteLn hat´s nicht geklappt.
Nein, werd ich nicht, das Problem liegt ja wie immer 10cm vor dem Bildschirm :? ich werde mich später nochmals damit beschäftigen.
Aber jetzt hab ich erstmal die Schnautze voll davon (4 wochen ohne ergebniss) :wall:
-
Forum: Netzwerke
Delphi
by jeng37,
24. Aug 2015
.. versuche es mal so:
procedure TForm1.Button1Click(Sender: TObject);
var
data: TidBytes;
begin
idTCPClient1.Port := 49151;
idTCPClient1.Host := '192.168.80.133';
idTCPClient1.Connect;
-
Forum: Netzwerke
Delphi
by jeng37,
22. Aug 2015
Ja hier die ausgabe von Wireshark:
0000003B 04 01 02 23 3c 00 0a 01 ff 00 00 00 00 00 00 00 ...#<... ........
0000004B fe 0d 0a
Ich habs auch so rum probiert und es klappt auch nicht.
str := '\04\01\02#<\00\n\01\ff\00\00\00\00\00\00\00\fe';
Data := AnsiString(str);
-
Forum: Netzwerke
Delphi
by jeng37,
22. Aug 2015
Hmm ich stehe auf dem schlauch...:oops:
mit port1on : AnsiString; geht es auch nicht.
-
Forum: Netzwerke
Delphi
by jeng37,
21. Aug 2015
procedure TFClient.BSendClick(Sender: TObject);
Var
Port1on : String;
iSend: AnsiString;
i: Integer;
begin
port1on := #$04#$01#$02#$23#$3c#$00#$0a#$01#$ff#$00#$00#$00#$00#$00#$00#$00#$fe;
SetLength(iSend, Length(port1on));
for i := 0 to Length(port1on) do
begin
-
Forum: Netzwerke
Delphi
by jeng37,
20. Aug 2015
schaltet immer noch nicht.
procedure TFClient.BSendClick(Sender: TObject);
Var
Port1on : String;
begin
port1on := #$04#$01#$02#$23#$3c#$00#$0a#$01#$ff#$00#$00#$00#$00#$00#$00#$00#$fe;
IdTCPClient1.IOHandler.Writeln(String(port1on), IndyTextEncoding_OSDefault);
sleep(99); //<--- um einen break point zu setzen
-
Forum: Netzwerke
Delphi
by jeng37,
20. Aug 2015
Hier das resultat.
Indy Dump:
bytefolge die ich sende: 04 01 02 23 3c 00 0a 01 ff 00 00 00 00 00 00 00 fe
Und das modul schaltet nicht!!
Socks Dump:
bytfolge die ich sende: 04 01 02 23 3c 00 0a 01 ff 00 00 00 00 00 00 00 fe
Da wird aber irgendwie noch zwei bytes angehängt!
Und zwar 0d 0a. CR/LF
-
Forum: Netzwerke
Delphi
by jeng37,
20. Aug 2015
Ja gute idee, das hab ich noch nicht versucht!
Danke,
Ich mach mich mal gleich ans werk.
-
Forum: Netzwerke
Delphi
by jeng37,
20. Aug 2015
Nein gar keine Fehlermeldung. Wenn ich einnen Break Point stetze steht auch die richtige bytefolge in Buf.
Sie kommt auch an, ich sehe das am flackern der led's.
Ja die verbindung steht auch, ich sende zuerst einnen connect, danach einen login, und bekomme die variable v056 zurück. Damit weiss ich dass connect und login ok waren.
Es ist echt zum verzweifeln, weil es ja mit der socks...
-
Forum: Netzwerke
Delphi
by jeng37,
20. Aug 2015
Nein leider hilft das auch nicht.
-
Forum: Netzwerke
Delphi
by jeng37,
20. Aug 2015
Dieses funktionniert leider auch nicht!
Was mache ich Falsch?
Procedure TFClient.BSendClick(Sender: TObject);
Var
buf: TidBytes;
begin
-
Forum: Netzwerke
Delphi
by jeng37,
19. Aug 2015
Hallo,
Ich habs am laufen!
Nur wieso funktionniert es mit der socket compo. und nicht mit der Indy?
Hier die socket version mit der es funktionniert!
procedure TfrmMain.Button2Click(Sender: TObject);
var
Data: AnsiString;
-
Forum: Netzwerke
Delphi
by jeng37,
7. Aug 2015
Danke Klaus,
Ich versuch's mal auf diese weise!
mfg
Jeng
-
Forum: Netzwerke
Delphi
by jeng37,
7. Aug 2015
Hallo,
Ich hab endlich eine kleine beschreibung vom Hersteller der Karte bekommen.
Vieleicht kann mir damit jetzt besser jemand weiterhelfen.
{
Frame:(STX)(IDto)(IDFrom)(Lng max 128)(DATA max 128)(LRC)
-
Forum: Netzwerke
Delphi
by jeng37,
31. Jul 2015
Ich setzte mal mein test Projekt rein.
Es war anfangs eine chat demo.
Ich hab diese umgebaut.
-
Forum: Netzwerke
Delphi
by jeng37,
30. Jul 2015
Hier ein Sauberer Wireshark Dump.
Wenn einer Lust hat mir das Licht Auszuknippsen:)
Filter:
IP: 188.115.10.88
TCP Port: 6354
-
Forum: Netzwerke
Delphi
by jeng37,
30. Jul 2015
Ja stimmt das ist die Statusabfrage.
-
Forum: Netzwerke
Delphi
by jeng37,
30. Jul 2015
Ja das ist die Frage.
Nei dei verbindung bleibt offen!
Scheinbar nicht. Ich hab mal einen trace angehängt! Sieht nicht gerade top aus als txt, ich kann auch einen Wireshark dump reinstellen bei bedarf.
Port an: 04 01 02 23 3c 00 0a 01 ff 00 00 00 00 00 00 00 fe
-
Forum: Netzwerke
Delphi
by jeng37,
30. Jul 2015
Hier mal zum Veranschaulichen.
Screen1
Oben rechts muss ich persitent TCP anklicken! "sonst gehts nicht"
Dann sende ich die login daten un es kommt ein popup fenster.
Screen2
In dem Fenster kommt die Antwort der Karte mit "V056".
Damit bin ich verbunden.
-
Forum: Netzwerke
Delphi
by jeng37,
30. Jul 2015
:)Nein leider nicht. Ist ein Italienisches Produckt, nein auch kein BTicino :).
Es ist AnB.
-
Forum: Netzwerke
Delphi
by jeng37,
30. Jul 2015
Habs gerade versucht, und klappt auch nicht!
-
Forum: Netzwerke
Delphi
by jeng37,
30. Jul 2015
Guten Morgen,
Hallo Klaus,
Ja das währe doch zueinfach, nein habe ich leider nicht.
Ich habe alles was ich brauche per wireshark ausgetestet.
Die Firma gibt die Techniche infos nicht raus.
-
Forum: Netzwerke
Delphi
by jeng37,
30. Jul 2015
Dann muss Ich ja bei jedem port den ich schalten bzw. dimmen möchte jedes mal die Login daten mitschicken.
-
Forum: Netzwerke
Delphi
by jeng37,
30. Jul 2015
Ein freundliches Hallo
Bin noch neu Hier,
Ich leg dann aber mal gleich Los.
Ich habe das problem, dass ich an eine electronik verschiedene hex codes senden möchte um relais ein oder auszuschalten.
Ich benutze dafür TidTCPClient und komme ich nicht weiter.
Ich sende meine Login daten und bekomme auch die bestätigung zurück dass ich verbunden bin.
Nun bin ich ja verbunden, jetzt schicke...