Turbo Power Apro-Comport Control Problem...

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Kullanıcı avatarı
uğur alkan
Üye
Mesajlar: 227
Kayıt: 29 Ağu 2004 04:49
Konum: Istanbul

Turbo Power Apro-Comport Control Problem...

Mesaj gönderen uğur alkan »

procedure TForm1.TestClick(Sender: TObject);
{TestClick button click - Send output}
begin
ApdComPort1.OutPut := 'data'^M; // porta deger gönder !
end;


code bu şekilde kullanıldığı zaman;

butona 1. basışta 'd'
butona 2. basışta 'a'
butona 3. basışta 't'
butona 4. basışta 'a'
karakterlerini gönderiyor...
--------------------------------------------------------------------------
com.PutString(stringdeğişkenin);
bu yöntemle ise buffer 'a eksik karekter düşüyor...
1. veya sonuncu....
kontrol kartı yakalıyamıyor....





bir kontrol kartıyla haberleşiyorum ve kartın buffer' ına düşen herşeyi
rahatlıkla takip edebiliyorum..


stringin tamamını tek clikte gönderemiyorum...
stringin boyutu kadar döngüde tuttuğum zaman ise zaman kaybı çok fazla oluyor...
direkt stringi göndermeyi bilen varmı...
Bazen sert rüzgarlar eser başını öne eğmekten asla korkma
Kullanıcı avatarı
mege
Admin
Mesajlar: 2360
Kayıt: 05 Şub 2004 04:32
Konum: Beşiktaş
İletişim:

Mesaj gönderen mege »

^M
nedir bu acaba :?:

normalde output ile direk veriyi gönderebilrsiniz. port ayarlarınız doğrumu veya cihazda handshaking falanmı varki? protokıol doğrumu veya stop bitlerini yanlış ayarlamış olabilrisiniz büyük ihtimalle 2 yerine 1 filan
.-.-.-.-.-.-.-. ^_^
Kullanıcı avatarı
uğur alkan
Üye
Mesajlar: 227
Kayıt: 29 Ağu 2004 04:49
Konum: Istanbul

Mesaj gönderen uğur alkan »

protokolde sorun yok eminim.... 9600 n y

^m ne anlama geliyor onu bilmiyorum...
örnekte öyle göstrilmiş bende öyle kullandım....
butona 4 kere basarsan kontrol board komutu yerine getiriyor...
tek karekteri güzelce taşıyorda, neden iş string olunca bozuyor anlamadım....
Bazen sert rüzgarlar eser başını öne eğmekten asla korkma
Kullanıcı avatarı
mege
Admin
Mesajlar: 2360
Kayıt: 05 Şub 2004 04:32
Konum: Beşiktaş
İletişim:

Mesaj gönderen mege »

^M nin karşılığını bilmiyorum .
:idea: belki satır sonu işareti istiyordur

Kod: Tümünü seç

ApdComPort1.OutPut := '@00RD0000001552*'+#13+#0; 
stringin sonuna #13 #0 ekle bide öyle dene :wink:
anca bukadar yardım edebilrim :)
.-.-.-.-.-.-.-. ^_^
Kullanıcı avatarı
uğur alkan
Üye
Mesajlar: 227
Kayıt: 29 Ağu 2004 04:49
Konum: Istanbul

Mesaj gönderen uğur alkan »

teşekkür ederim iyi fikir...
Bazen sert rüzgarlar eser başını öne eğmekten asla korkma
Cevapla