Yorumları: 11
Konuları: 3
Kayıt Tarihi: 07-10-2017
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 4 Başlangıç
Port dinlemesi ile santralden ilk cevabı alabildim.
ComPort1.WriteStr(''); yolladığımda D harfi geri dönüyor ama ikinci bir kod daha gerekiyor sanırım hala tam çalışmıyor.
.D.ØşØ.ØşØ.F...@..ÒşÒ.ÒşÒ....éşé.éşéÿÿÿÿÿÿÿ3ÿDÿUÿoÿÿÿŸÿÿÿ./.../.?.O._.o.Ÿ... / ? O _ o . .0/0?0O0_0o0_.0.@/@?@O@_@o@?.@.P/P?POP_PoPP/.O.?._.o...ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿêşê.êşê®ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿòşò............
.............................................................................................. ....!...."....#....$....%....&....'....(....)....*....+....,....-........./....0....1....2....3....4....5....6....7....8....9....:....;....<....=....>....?....@....A....B....C....D....E....F....‡....ˆ....‰....Š...òşò.òşò.@
[01/08/2018 11:16:52] Written data
04 .
[01/08/2018 11:16:52] Read data
44 D
[01/08/2018 11:16:52] Written data
02 .
[01/08/2018 11:16:52] Written data
d8 fe d8 00 ØşØ.
[01/08/2018 11:16:53] Read data
d8 fe d8 07 46 04 15 00 40 00 00 ØşØ.F...@..
[01/08/2018 11:16:53] Written data
d2 fe d2 00 ÒşÒ.
[01/08/2018 11:16:53] Read data
d2 fe d2 03 00 00 00 ÒşÒ....
[01/08/2018 11:16:53] Written data
e9 fe e9 00 éşé.
[01/08/2018 11:16:57] Read data
e9 fe e9 9e éşé
[01/08/2018 11:16:57] Read data
ff ff ff ff ff ff ff 33 ff 44 ff 55 ff 6f ff 7f ÿÿÿÿÿÿÿ3ÿDÿUÿoÿ
ff 8f ff 9f ff ff ff 0f 2f 11 1f 10 2f 10 3f 10 ÿÿŸÿÿÿ./.../.?.
4f 10 5f 10 6f 10 9f 11 7f 10 1f 20 2f 20 3f 20 O._.o.Ÿ... / ?
4f 20 5f 20 6f 20 7f 12 7f 20 1f 30 2f 30 3f 30 O _ o . .0/0?0
4f 30 5f 30 6f 30 5f 13 7f 30 1f 40 2f 40 3f 40 O0_0o0_.0.@/@?@
4f 40 5f 40 6f 40 3f 14 7f 40 1f 50 2f 50 3f 50 O@_@o@?.@.P/P?P
4f 50 5f 50 6f 50 7f 50 2f 15 4f 15 3f 15 5f 15 OP_PoPP/.O.?._.
6f 15 7f 15 8f 15 ff ff ff ff ff ff ff ff ff ff o...ÿÿÿÿÿÿÿÿÿÿ
ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
ff ff ff ff ff ff ff ff ff ff ff ff ff ff ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
[01/08/2018 11:16:57] Written data
ea fe ea 00 êşê.
[01/08/2018 11:16:59] Read data
ea fe ea ae êşê®
[01/08/2018 11:16:59] Read data
ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
ff ff ff ff ff ff ff ff ff ff ff ff ff ff ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
[01/08/2018 11:17:03] Written data
f2 fe f2 12 òşò.
04 =
02 =
d8 fe d8 00 = ? burada göndermem gereken nedir bulamıyorum.
d8 = alt+0216
fe = alt+0254
00 araştırmalarıma göre 00 ın değeri Null gözüküyor ama onu nasıl gönderebilirim ki. Başka bir yerde de Ctrl-@ olarak gözüküyor. Onunda nasıl gerçekleşeceğini bilemedim.
Yorumları: 4.224
Konuları: 379
Kayıt Tarihi: 07-07-2016
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 16.975 Üstad
02-08-2018, Saat: 11:36
(Son Düzenleme: 02-08-2018, Saat: 11:37, Düzenleyen: TescilsizUzman.)
(02-08-2018, Saat: 11:27)erdem55 Adlı Kullanıcıdan Alıntı: Port dinlemesi ile santralden ilk cevabı alabildim.
ComPort1.WriteStr(''); yolladığımda D harfi geri dönüyor ama ikinci bir kod daha gerekiyor sanırım hala tam çalışmıyor.
.D.ØşØ.ØşØ.F...@..ÒşÒ.ÒşÒ....éşé.éşéÿÿÿÿÿÿÿ3ÿDÿUÿoÿÿÿŸÿÿÿ./.../.?.O._.o.Ÿ... / ? O _ o . .0/0?0O0_0o0_.0.@/@?@O@_@o@?.@.P/P?POP_PoPP/.O.?._.o...ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿêşê.êşê®ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿòşò............
.............................................................................................. ....!...."....#....$....%....&....'....(....)....*....+....,....-........./....0....1....2....3....4....5....6....7....8....9....:....;....<....=....>....?....@....A....B....C....D....E....F....‡....ˆ....‰....Š...òşò.òşò.@
[01/08/2018 11:16:52] Written data
04 .
[01/08/2018 11:16:52] Read data
44 D
[01/08/2018 11:16:52] Written data
02 .
[01/08/2018 11:16:52] Written data
d8 fe d8 00 ØşØ.
[01/08/2018 11:16:53] Read data
d8 fe d8 07 46 04 15 00 40 00 00 ØşØ.F...@..
[01/08/2018 11:16:53] Written data
d2 fe d2 00 ÒşÒ.
[01/08/2018 11:16:53] Read data
d2 fe d2 03 00 00 00 ÒşÒ....
[01/08/2018 11:16:53] Written data
e9 fe e9 00 éşé.
[01/08/2018 11:16:57] Read data
e9 fe e9 9e éşé
[01/08/2018 11:16:57] Read data
ff ff ff ff ff ff ff 33 ff 44 ff 55 ff 6f ff 7f ÿÿÿÿÿÿÿ3ÿDÿUÿoÿ
ff 8f ff 9f ff ff ff 0f 2f 11 1f 10 2f 10 3f 10 ÿÿŸÿÿÿ./.../.?.
4f 10 5f 10 6f 10 9f 11 7f 10 1f 20 2f 20 3f 20 O._.o.Ÿ... / ?
4f 20 5f 20 6f 20 7f 12 7f 20 1f 30 2f 30 3f 30 O _ o . .0/0?0
4f 30 5f 30 6f 30 5f 13 7f 30 1f 40 2f 40 3f 40 O0_0o0_.0.@/@?@
4f 40 5f 40 6f 40 3f 14 7f 40 1f 50 2f 50 3f 50 O@_@o@?.@.P/P?P
4f 50 5f 50 6f 50 7f 50 2f 15 4f 15 3f 15 5f 15 OP_PoPP/.O.?._.
6f 15 7f 15 8f 15 ff ff ff ff ff ff ff ff ff ff o...ÿÿÿÿÿÿÿÿÿÿ
ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
ff ff ff ff ff ff ff ff ff ff ff ff ff ff ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
[01/08/2018 11:16:57] Written data
ea fe ea 00 êşê.
[01/08/2018 11:16:59] Read data
ea fe ea ae êşê®
[01/08/2018 11:16:59] Read data
ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
ff ff ff ff ff ff ff ff ff ff ff ff ff ff ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
[01/08/2018 11:17:03] Written data
f2 fe f2 12 òşò.
04 =
02 =
d8 fe d8 00 = ? burada göndermem gereken nedir bulamıyorum.
d8 = alt+0216
fe = alt+0254
00 araştırmalarıma göre 00 ın değeri Null gözüküyor ama onu nasıl gönderebilirim ki. Başka bir yerde de Ctrl-@ olarak gözüküyor. Onunda nasıl gerçekleşeceğini bilemedim.
Cihaz iletişim hızını (Baud rate) doğru tanımladınız mi?
(Geri dönüş değerlerinde anlamsız karakterler var)
Yorumları: 1.571
Konuları: 88
Kayıt Tarihi: 09-08-2016
Rep Puanı: 13.829 Üstad
(02-08-2018, Saat: 11:27)erdem55 Adlı Kullanıcıdan Alıntı: 04 =
02 =
d8 fe d8 00 = ? burada göndermem gereken nedir bulamıyorum.
d8 = alt+0216
fe = alt+0254
00 araştırmalarıma göre 00 ın değeri Null gözüküyor ama onu nasıl gönderebilirim ki. Başka bir yerde de Ctrl-@ olarak gözüküyor. Onunda nasıl gerçekleşeceğini bilemedim.
Bahsettiğiniz Comport bileşeni bende mevcut değil ama WriteStr yerine Write komutu gibi birşeyler olmalı. Yani siz string değil, bir buffer(byte array) göndereceksiniz.
Genelde şu şekilde tanımlı bir fonksiyon olur:
function Write(const Buffer; Count: Integer): Integer;
Böyle bir fonksiyon varsa, siz bir byte array tanımlayıp gönderebilirsiniz. Örneğin 4 byte göndereceksiniz:
var
txData: array [1..4] of byte;
begin
txData[1] := $d8;
txData[2] := $fe;
txData[3] := $d8;
txData[4] := $00;
cport.write(@txData, 4);
gibi ...
There's no place like 127.0.0.1
Yorumları: 61
Konuları: 13
Kayıt Tarihi: 17-10-2016
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 478 Acemi
(02-08-2018, Saat: 11:27)erdem55 Adlı Kullanıcıdan Alıntı: Port dinlemesi ile santralden ilk cevabı alabildim.
ComPort1.WriteStr(''); yolladığımda D harfi geri dönüyor ama ikinci bir kod daha gerekiyor sanırım hala tam çalışmıyor.
.D.ØşØ.ØşØ.F...@..ÒşÒ.ÒşÒ....éşé.éşéÿÿÿÿÿÿÿ3ÿDÿUÿoÿÿÿŸÿÿÿ./.../.?.O._.o.Ÿ... / ? O _ o . .0/0?0O0_0o0_.0.@/@?@O@_@o@?.@.P/P?POP_PoPP/.O.?._.o...ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿêşê.êşê®ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿòşò............
.............................................................................................. ....!...."....#....$....%....&....'....(....)....*....+....,....-........./....0....1....2....3....4....5....6....7....8....9....:....;....<....=....>....?....@....A....B....C....D....E....F....‡....ˆ....‰....Š...òşò.òşò.@
[01/08/2018 11:16:52] Written data
04 .
[01/08/2018 11:16:52] Read data
44 D
[01/08/2018 11:16:52] Written data
02 .
[01/08/2018 11:16:52] Written data
d8 fe d8 00 ØşØ.
[01/08/2018 11:16:53] Read data
d8 fe d8 07 46 04 15 00 40 00 00 ØşØ.F...@..
[01/08/2018 11:16:53] Written data
d2 fe d2 00 ÒşÒ.
[01/08/2018 11:16:53] Read data
d2 fe d2 03 00 00 00 ÒşÒ....
[01/08/2018 11:16:53] Written data
e9 fe e9 00 éşé.
[01/08/2018 11:16:57] Read data
e9 fe e9 9e éşé
[01/08/2018 11:16:57] Read data
ff ff ff ff ff ff ff 33 ff 44 ff 55 ff 6f ff 7f ÿÿÿÿÿÿÿ3ÿDÿUÿoÿ
ff 8f ff 9f ff ff ff 0f 2f 11 1f 10 2f 10 3f 10 ÿÿŸÿÿÿ./.../.?.
4f 10 5f 10 6f 10 9f 11 7f 10 1f 20 2f 20 3f 20 O._.o.Ÿ... / ?
4f 20 5f 20 6f 20 7f 12 7f 20 1f 30 2f 30 3f 30 O _ o . .0/0?0
4f 30 5f 30 6f 30 5f 13 7f 30 1f 40 2f 40 3f 40 O0_0o0_.0.@/@?@
4f 40 5f 40 6f 40 3f 14 7f 40 1f 50 2f 50 3f 50 O@_@o@?.@.P/P?P
4f 50 5f 50 6f 50 7f 50 2f 15 4f 15 3f 15 5f 15 OP_PoPP/.O.?._.
6f 15 7f 15 8f 15 ff ff ff ff ff ff ff ff ff ff o...ÿÿÿÿÿÿÿÿÿÿ
ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
ff ff ff ff ff ff ff ff ff ff ff ff ff ff ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
[01/08/2018 11:16:57] Written data
ea fe ea 00 êşê.
[01/08/2018 11:16:59] Read data
ea fe ea ae êşê®
[01/08/2018 11:16:59] Read data
ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
ff ff ff ff ff ff ff ff ff ff ff ff ff ff ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
[01/08/2018 11:17:03] Written data
f2 fe f2 12 òşò.
04 =
02 =
d8 fe d8 00 = ? burada göndermem gereken nedir bulamıyorum.
d8 = alt+0216
fe = alt+0254
00 araştırmalarıma göre 00 ın değeri Null gözüküyor ama onu nasıl gönderebilirim ki. Başka bir yerde de Ctrl-@ olarak gözüküyor. Onunda nasıl gerçekleşeceğini bilemedim.
Merhaba, @ SimaWB Hocamızın belirttiği gibi buffer ollarak veriyi yollayıp alabilirsin, Kullandığım örnek synaser kütüphanesi kodları :
https://github.com/MerlijnWajer/Simba/bl...ynaser.pas
var
BufferRead: array [0 .. 0495] of byte;
YCPort : TBlockSerial ;
//==============================================================================
Function OpenSerialPort(PortNum : string ; Baudrate: integer): Boolean;
begin
Result := false;
YCPort := TBlockSerial.Create;
YCPort.RaiseExcept := false;
YCPort.Connect(PortNum);
if YCPort.InstanceActive then
begin
addlog('Port [' + PortNum + '@' + intTostr(Baudrate) + '] : Opened' );
YCPort.config(Baudrate, 8, 'N', 0, false, true);
Result := true;
end
else
begin
addlog('>> Hata!! Bağlantıyı kontrol edin...' );
YCPort.free;
end;
end;
//==============================================================================
Function CloseSerialPort: Boolean;
begin
YCPort.Purge;
YCPort.free;
end;
//==============================================================================
procedure TForm1.BitBtn1Click(Sender: TObject);
const
Ms128_Data: array [0 .. 3] of byte = ($d8, $fe, $d8, $00);
var
ir, i, Res, iPos :integer;
tmp:string;
begin
if OpenSerialPort(Port_Box.text, 115200) = true then
begin
YCPort.DeadlockTimeout := 15000;
YCPort.SendBuffer(@Ms128_Data, length(Ms128_Data));
fillchar(BufferRead, sizeof(BufferRead), $00);
Ir := YCPort.ReadBytes(256, BufferRead,100);
for i:=0 to ir -1 do
tmp := tmp + intToHex(BufferRead[i], 2);
memo.lines.add(tmp);
CloseSerialport;
Yorumları: 1.571
Konuları: 88
Kayıt Tarihi: 09-08-2016
Rep Puanı: 13.829 Üstad
Teşekkürler @ dicle_gsm
Synaser, Synapse kütüphanesinin bir bölümü. Ben yıllardır bu kütüphaneyi özellikle socket iletişimi için kullandığım için tam adresini paylaşmak istedim:
http://synapse.ararat.cz/doku.php/download
There's no place like 127.0.0.1
Yorumları: 11
Konuları: 3
Kayıt Tarihi: 07-10-2017
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 4 Başlangıç
(02-08-2018, Saat: 11:36)Fesih ARSLAN Adlı Kullanıcıdan Alıntı: (02-08-2018, Saat: 11:27)erdem55 Adlı Kullanıcıdan Alıntı: Port dinlemesi ile santralden ilk cevabı alabildim.
ComPort1.WriteStr(''); yolladığımda D harfi geri dönüyor ama ikinci bir kod daha gerekiyor sanırım hala tam çalışmıyor.
.D.ØşØ.ØşØ.F...@..ÒşÒ.ÒşÒ....éşé.éşéÿÿÿÿÿÿÿ3ÿDÿUÿoÿÿÿŸÿÿÿ./.../.?.O._.o.Ÿ... / ? O _ o . .0/0?0O0_0o0_.0.@/@?@O@_@o@?.@.P/P?POP_PoPP/.O.?._.o...ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿêşê.êşê®ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿòşò............
.............................................................................................. ....!...."....#....$....%....&....'....(....)....*....+....,....-........./....0....1....2....3....4....5....6....7....8....9....:....;....<....=....>....?....@....A....B....C....D....E....F....‡....ˆ....‰....Š...òşò.òşò.@
[01/08/2018 11:16:52] Written data
04 .
[01/08/2018 11:16:52] Read data
44 D
[01/08/2018 11:16:52] Written data
02 .
[01/08/2018 11:16:52] Written data
d8 fe d8 00 ØşØ.
[01/08/2018 11:16:53] Read data
d8 fe d8 07 46 04 15 00 40 00 00 ØşØ.F...@..
[01/08/2018 11:16:53] Written data
d2 fe d2 00 ÒşÒ.
[01/08/2018 11:16:53] Read data
d2 fe d2 03 00 00 00 ÒşÒ....
[01/08/2018 11:16:53] Written data
e9 fe e9 00 éşé.
[01/08/2018 11:16:57] Read data
e9 fe e9 9e éşé
[01/08/2018 11:16:57] Read data
ff ff ff ff ff ff ff 33 ff 44 ff 55 ff 6f ff 7f ÿÿÿÿÿÿÿ3ÿDÿUÿoÿ
ff 8f ff 9f ff ff ff 0f 2f 11 1f 10 2f 10 3f 10 ÿÿŸÿÿÿ./.../.?.
4f 10 5f 10 6f 10 9f 11 7f 10 1f 20 2f 20 3f 20 O._.o.Ÿ... / ?
4f 20 5f 20 6f 20 7f 12 7f 20 1f 30 2f 30 3f 30 O _ o . .0/0?0
4f 30 5f 30 6f 30 5f 13 7f 30 1f 40 2f 40 3f 40 O0_0o0_.0.@/@?@
4f 40 5f 40 6f 40 3f 14 7f 40 1f 50 2f 50 3f 50 O@_@o@?.@.P/P?P
4f 50 5f 50 6f 50 7f 50 2f 15 4f 15 3f 15 5f 15 OP_PoPP/.O.?._.
6f 15 7f 15 8f 15 ff ff ff ff ff ff ff ff ff ff o...ÿÿÿÿÿÿÿÿÿÿ
ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
ff ff ff ff ff ff ff ff ff ff ff ff ff ff ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
[01/08/2018 11:16:57] Written data
ea fe ea 00 êşê.
[01/08/2018 11:16:59] Read data
ea fe ea ae êşê®
[01/08/2018 11:16:59] Read data
ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
ff ff ff ff ff ff ff ff ff ff ff ff ff ff ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
[01/08/2018 11:17:03] Written data
f2 fe f2 12 òşò.
04 =
02 =
d8 fe d8 00 = ? burada göndermem gereken nedir bulamıyorum.
d8 = alt+0216
fe = alt+0254
00 araştırmalarıma göre 00 ın değeri Null gözüküyor ama onu nasıl gönderebilirim ki. Başka bir yerde de Ctrl-@ olarak gözüküyor. Onunda nasıl gerçekleşeceğini bilemedim.
Cihaz iletişim hızını (Baud rate) doğru tanımladınız mi?
(Geri dönüş değerlerinde anlamsız karakterler var)
Tamamı orjinal programın dinlenmesi ile elde edilmiştir.
(02-08-2018, Saat: 12:11)SimaWB Adlı Kullanıcıdan Alıntı: (02-08-2018, Saat: 11:27)erdem55 Adlı Kullanıcıdan Alıntı: 04 =
02 =
d8 fe d8 00 = ? burada göndermem gereken nedir bulamıyorum.
d8 = alt+0216
fe = alt+0254
00 araştırmalarıma göre 00 ın değeri Null gözüküyor ama onu nasıl gönderebilirim ki. Başka bir yerde de Ctrl-@ olarak gözüküyor. Onunda nasıl gerçekleşeceğini bilemedim.
Bahsettiğiniz Comport bileşeni bende mevcut değil ama WriteStr yerine Write komutu gibi birşeyler olmalı. Yani siz string değil, bir buffer(byte array) göndereceksiniz.
Genelde şu şekilde tanımlı bir fonksiyon olur:
function Write(const Buffer; Count: Integer): Integer;
Böyle bir fonksiyon varsa, siz bir byte array tanımlayıp gönderebilirsiniz. Örneğin 4 byte göndereceksiniz:
var
txData: array [1..4] of byte;
begin
txData[1] := $d8;
txData[2] := $fe;
txData[3] := $d8;
txData[4] := $00;
cport.write(@txData, 4);
gibi ...
Verdiğiniz bilgiler için çok teşekkür ederim. Hemen deniyorum.
(02-08-2018, Saat: 13:00)dicle_gsm Adlı Kullanıcıdan Alıntı: (02-08-2018, Saat: 11:27)erdem55 Adlı Kullanıcıdan Alıntı: Port dinlemesi ile santralden ilk cevabı alabildim.
ComPort1.WriteStr(''); yolladığımda D harfi geri dönüyor ama ikinci bir kod daha gerekiyor sanırım hala tam çalışmıyor.
.D.ØşØ.ØşØ.F...@..ÒşÒ.ÒşÒ....éşé.éşéÿÿÿÿÿÿÿ3ÿDÿUÿoÿÿÿŸÿÿÿ./.../.?.O._.o.Ÿ... / ? O _ o . .0/0?0O0_0o0_.0.@/@?@O@_@o@?.@.P/P?POP_PoPP/.O.?._.o...ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿêşê.êşê®ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿòşò............
.............................................................................................. ....!...."....#....$....%....&....'....(....)....*....+....,....-........./....0....1....2....3....4....5....6....7....8....9....:....;....<....=....>....?....@....A....B....C....D....E....F....‡....ˆ....‰....Š...òşò.òşò.@
[01/08/2018 11:16:52] Written data
04 .
[01/08/2018 11:16:52] Read data
44 D
[01/08/2018 11:16:52] Written data
02 .
[01/08/2018 11:16:52] Written data
d8 fe d8 00 ØşØ.
[01/08/2018 11:16:53] Read data
d8 fe d8 07 46 04 15 00 40 00 00 ØşØ.F...@..
[01/08/2018 11:16:53] Written data
d2 fe d2 00 ÒşÒ.
[01/08/2018 11:16:53] Read data
d2 fe d2 03 00 00 00 ÒşÒ....
[01/08/2018 11:16:53] Written data
e9 fe e9 00 éşé.
[01/08/2018 11:16:57] Read data
e9 fe e9 9e éşé
[01/08/2018 11:16:57] Read data
ff ff ff ff ff ff ff 33 ff 44 ff 55 ff 6f ff 7f ÿÿÿÿÿÿÿ3ÿDÿUÿoÿ
ff 8f ff 9f ff ff ff 0f 2f 11 1f 10 2f 10 3f 10 ÿÿŸÿÿÿ./.../.?.
4f 10 5f 10 6f 10 9f 11 7f 10 1f 20 2f 20 3f 20 O._.o.Ÿ... / ?
4f 20 5f 20 6f 20 7f 12 7f 20 1f 30 2f 30 3f 30 O _ o . .0/0?0
4f 30 5f 30 6f 30 5f 13 7f 30 1f 40 2f 40 3f 40 O0_0o0_.0.@/@?@
4f 40 5f 40 6f 40 3f 14 7f 40 1f 50 2f 50 3f 50 O@_@o@?.@.P/P?P
4f 50 5f 50 6f 50 7f 50 2f 15 4f 15 3f 15 5f 15 OP_PoPP/.O.?._.
6f 15 7f 15 8f 15 ff ff ff ff ff ff ff ff ff ff o...ÿÿÿÿÿÿÿÿÿÿ
ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
ff ff ff ff ff ff ff ff ff ff ff ff ff ff ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
[01/08/2018 11:16:57] Written data
ea fe ea 00 êşê.
[01/08/2018 11:16:59] Read data
ea fe ea ae êşê®
[01/08/2018 11:16:59] Read data
ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
ff ff ff ff ff ff ff ff ff ff ff ff ff ff ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
[01/08/2018 11:17:03] Written data
f2 fe f2 12 òşò.
04 =
02 =
d8 fe d8 00 = ? burada göndermem gereken nedir bulamıyorum.
d8 = alt+0216
fe = alt+0254
00 araştırmalarıma göre 00 ın değeri Null gözüküyor ama onu nasıl gönderebilirim ki. Başka bir yerde de Ctrl-@ olarak gözüküyor. Onunda nasıl gerçekleşeceğini bilemedim.
Merhaba, @SimaWB Hocamızın belirttiği gibi buffer ollarak veriyi yollayıp alabilirsin, Kullandığım örnek synaser kütüphanesi kodları :
https://github.com/MerlijnWajer/Simba/bl...ynaser.pas
var
BufferRead: array [0 .. 0495] of byte;
YCPort : TBlockSerial ;
//==============================================================================
Function OpenSerialPort(PortNum : string ; Baudrate: integer): Boolean;
begin
Result := false;
YCPort := TBlockSerial.Create;
YCPort.RaiseExcept := false;
YCPort.Connect(PortNum);
if YCPort.InstanceActive then
begin
addlog('Port [' + PortNum + '@' + intTostr(Baudrate) + '] : Opened' );
YCPort.config(Baudrate, 8, 'N', 0, false, true);
Result := true;
end
else
begin
addlog('>> Hata!! Bağlantıyı kontrol edin...' );
YCPort.free;
end;
end;
//==============================================================================
Function CloseSerialPort: Boolean;
begin
YCPort.Purge;
YCPort.free;
end;
//==============================================================================
procedure TForm1.BitBtn1Click(Sender: TObject);
const
Ms128_Data: array [0 .. 3] of byte = ($d8, $fe, $d8, $00);
var
ir, i, Res, iPos :integer;
tmp:string;
begin
if OpenSerialPort(Port_Box.text, 115200) = true then
begin
YCPort.DeadlockTimeout := 15000;
YCPort.SendBuffer(@Ms128_Data, length(Ms128_Data));
fillchar(BufferRead, sizeof(BufferRead), $00);
Ir := YCPort.ReadBytes(256, BufferRead,100);
for i:=0 to ir -1 do
tmp := tmp + intToHex(BufferRead[i], 2);
memo.lines.add(tmp);
CloseSerialport;
BU yararlı bilgiler için ayrıca teşekkür ederim.
Yorumları: 1
Konuları: 0
Kayıt Tarihi: 10-01-2020
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 0 Başlangıç
Konu güncel midir ? Sonuçlanmamış anladığım kadarıyla. Benim de bir sorunum vardı.
Bizim şirketimizde karel ms128 var ve lisanslı ürün anahtarımızda var. Bu anahtarı girdiğimizde ürün anahtarı hatalı diyor , daha sonra seri port bağlanılamadı ( 5 ) hatası veriyor. Bu durumu nasıl çözebiliriz ? Tavsiyeniz nelerdir ? Karel sunucumuzdan veri alamıyoruz.
|