Seri Port

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Kullanıcı avatarı
ikurt07
Üye
Mesajlar: 120
Kayıt: 11 Kas 2005 04:21
Konum: Antalya
İletişim:

Seri Port

Mesaj gönderen ikurt07 »

İyi Çalışmalar
Sistemde Çalışan bir programın.. Seri Porta gönderdiği verileri nasıl yakalayabiliriz.
true_false
Üye
Mesajlar: 401
Kayıt: 22 Tem 2004 02:03
Konum: sıkıntı çekmişlere yakın bi yerden

Mesaj gönderen true_false »

hocam bunun için önce haberleştiğin cihazın protokulunu (nasıl haberleştini) bilmen gerekir yani cihazın dilini bilmen lazım
comport haberleşme çift yönlüdür cihaz size başlangıç bilgisini gönderiri siz onu yorumlarsınız tekrar cihaza bilgi gönderirsiniz (sadece veri akışının sağlanması için gerekli karakter. bilgiden kastım o)
astmp protokulunu incele derim. tabi bunu yanında kablo yapısıda önemli standart com bağlantı kablo yapısı
1-) Beyaz
2-) Sarı
3-) Kırmızı

4-) Turuncu
5-) Siyah
6-) Kahve
7-) Mavi
8 -) Yeşil



1-) Beyaz
2-) Kırmızı
3-) Sarı

4-) Kahve
5-) Siyah
6-) Turuncu
7-) Yeşil
8 -) Mavi

bu şekildedir(9FS) koyu yazdıklarımı bağlasan haberleşme sağlarsın
2 - transmit
3- receive
5 - graund
yani kısaca gönderme alma ve topraklama


/// delphide uygulama yazacaksan apro bileşenlerden yararlanabilirsin (apdcomport)
type
Tform1 = class(Tform)
Kullanıcı avatarı
ikurt07
Üye
Mesajlar: 120
Kayıt: 11 Kas 2005 04:21
Konum: Antalya
İletişim:

Mesaj gönderen ikurt07 »

ilgin için teşekkürler....

Bir otopark sistemi var.. sistemi kuran kişileri bir türlü bulamıyorm... bu yüzden protokulunu bilmiyoruz.
seri porttan Bariyer kontrol cihazına Aç/Kapat komutu gönderiyor.. gönderilen veriyi nasıl görebilirim.
true_false
Üye
Mesajlar: 401
Kayıt: 22 Tem 2004 02:03
Konum: sıkıntı çekmişlere yakın bi yerden

Mesaj gönderen true_false »

hocam aynı durum benim başımada gelmişti sadece 3 tane display ledi kontrol etmem gerekiyordu aradım taradım firmayı buldum allah razı olsun bana delphi programlarını komple kodunu gönderdiler


bariyer sistemlerini bildiğim kadarıylada sayılı firmalar ilgileniyor muhtemelen biraz daha kapsamlı araştırma yaparsan firmaya ulaşabilirsin.
dediğim gibi protokolu bilmeden kontrol etmen çok zor forum içinde bu işle daha kapsamlı uğraşan arkadaşlar varsa belki onlar yardımcı olabilirler.
eğer protokole ulaşırsan sana burdan yardım edebilirim.
En son true_false tarafından 30 Tem 2007 05:35 tarihinde düzenlendi, toplamda 1 kere düzenlendi.
type
Tform1 = class(Tform)
fduman
Moderator
Mesajlar: 2749
Kayıt: 17 Ara 2004 12:02
Konum: Ankara

Mesaj gönderen fduman »

Bilgisayardan bariyere doğru giden com portu bir kablo ile aynı bilgisayarın 2. com portuna bağlayın.

Hyperterminal i açıp, 2. com portu dinlemeye alın. Bu arada bariyere komut gönderen yazılımı çalıştırın.

Bariyere aç komutu gönderdiğinde Hyperterminal ile yakalamanız lazım.


Şematik olarak şöyle:

Bilgisayar COM1 -> Bilgisayar COM2
Kullanıcı avatarı
ikurt07
Üye
Mesajlar: 120
Kayıt: 11 Kas 2005 04:21
Konum: Antalya
İletişim:

Mesaj gönderen ikurt07 »

Dediğiniz gibi yaptım ancak... program kitleniyor ve portlar çalışmıyor
protokolü almanın başka bir yolu yokmudur...
true_false
Üye
Mesajlar: 401
Kayıt: 22 Tem 2004 02:03
Konum: sıkıntı çekmişlere yakın bi yerden

Mesaj gönderen true_false »

ikurt07 yazdı:... program kitleniyor ve portlar çalışmıyor
...

derken hyper terminali çalıştırabildinmi ?
portlar çalışmıyor kanısına nasıl vardın?
type
Tform1 = class(Tform)
Kullanıcı avatarı
ikurt07
Üye
Mesajlar: 120
Kayıt: 11 Kas 2005 04:21
Konum: Antalya
İletişim:

Mesaj gönderen ikurt07 »

Bariyer Kartından Gelen RS232 ile parelel bir Bağlantı yapıp com2 ye bağladımda bariyere aç komutu gitmiyor...
HyperTerminal de portların kullanımda olduğunu bildiriyor.
true_false
Üye
Mesajlar: 401
Kayıt: 22 Tem 2004 02:03
Konum: sıkıntı çekmişlere yakın bi yerden

Mesaj gönderen true_false »

@ikurt07 hyper terminali bir uygulamama denedim yaptığım yazılımdan com2 'ye veri gönderdim bunuda hyper terminalden dinlemeye çalıştım ama bende port kullanımda hatası aldım.

bir düşünce nekadar etkili olur bilemem ama bariyer'i manuel açmayı denesen yazılıma bulaşmayıp acaba bu şekilde comporta veri düşecekmi ?
type
Tform1 = class(Tform)
Kullanıcı avatarı
ikurt07
Üye
Mesajlar: 120
Kayıt: 11 Kas 2005 04:21
Konum: Antalya
İletişim:

Mesaj gönderen ikurt07 »

Malesef bariyeri manuel kontrol edemiyoruz sadece yazılım ile yapabiliryoruz...
Kullanıcı avatarı
mrmarman
Üye
Mesajlar: 4741
Kayıt: 09 Ara 2003 08:13
Konum: İstanbul
İletişim:

Mesaj gönderen mrmarman »

Bu işi yapan yazılımlar var, onlardan denedin mi ?

Ref : http://www.lammertbies.nl/comm/cable/RS ... nitor.html
Resim
Resim ....Resim
Kullanıcı avatarı
ikurt07
Üye
Mesajlar: 120
Kayıt: 11 Kas 2005 04:21
Konum: Antalya
İletişim:

Mesaj gönderen ikurt07 »

selamlar
Sonunda Protu dinleyebildim. ancak Port read/Write larından bişey anlayamadım...


00:031] - Written data

02 d0 01 90 08 00 01 01 01 00 00 00 00 48 03 .Ð..........H.

03:031] - Read data

02 d0 01 01 16 c6 03 .Ð...Æ.

bunun gibi datalar gidip/Geliyor.
Kullanıcı avatarı
mrmarman
Üye
Mesajlar: 4741
Kayıt: 09 Ara 2003 08:13
Konum: İstanbul
İletişim:

Mesaj gönderen mrmarman »

Bu kodları hexedecimal'den binary dizilime dönüştürürsen protokol daha anlamlı bir hal alacaktır. Bunları ne ile dinledin ? Benzeri işlemi delphi ile yaparak takibe almalısın.
Resim
Resim ....Resim
Cevapla