Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Karel Ms128 Com port Bilgi almak
#11
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.
Cevapla
#12
(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)
While true do; Hayat döngüsü, kısır değildir! Yapılan bir yanlış, o döngünün dışına çıkmanızı sağlayacaktır.
WWW
Cevapla
#13
(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
WWW
Cevapla
#14
(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;
- Namyelus
WWW
Cevapla
#15
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
WWW
Cevapla
#16
(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.
Cevapla
#17
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.
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Port asılı kalma sorunu. seci20 2 192 10-05-2020, Saat: 04:12
Son Yorum: seci20
  SP ile toplam almak Aktolgali 8 622 29-03-2020, Saat: 19:08
Son Yorum: Aktolgali
  arkada kalan programı öne almak hk. sadikacar60 0 186 26-02-2020, Saat: 00:15
Son Yorum: sadikacar60
  Para sayma makinasından bilgi alan mustafatorun 6 856 05-02-2020, Saat: 13:08
Son Yorum: SimaWB
  Com port otomatik algilama barox 3 876 02-08-2019, Saat: 09:57
Son Yorum: frmman



Konuyu Okuyanlar: 1 Ziyaretçi