Com Prottan Veri Gönderme

[namelesshero]

İyi Geceler Arkadaşlar,

Hakkari de askerlik görevimi yapıyorum ve çok sık olmasada sitenizi takip ediyordum.

Bir proje üzerine çalışmaktatyım.Askeri amaçlı kullanılan bir cihaza com prottan bilgi gönderme yapıyoruz. Bilgi gönderme işleminde Comprtlib compenentini kullanıyorum ama bilgiyi cihaza gönderip kontrolünü yaptığımda cihaza düşen bilgide türkçe karakter sorunu çıkıyor. bu konuda bana yardımcı olursanız sevinirim

[mrmarman]

- Seri porttan gelen verinin tipi prtokol ile belirlenir. Eğer direkt gelen ASCII kod halinde kabul ediliyorsa DOS mode Türkçe karakteri göndermeyi dener misin...

- Kendi fonksiyonumu vereyim. DivXTurk projem için LG vb. marka DivXPlayer'ların Türkçe sorunsalı için hazırlamıştım.

Kod: Tümünü seç

function DosTr(Veri: string): string;
const WinTex  = 'ĞÜŞİÖÇğüşıöç';
      DosText = #166#154#158#152#153#128
               +#167#129#159#141#148#135;
var
  i: Integer;
begin
  for i := 1 to Length(WinTex) do
    while Pos(WinTex[i], Veri) > 0
      do Veri[Pos(WinTex[i], Veri)] := DosText[i];
  Result := Veri;
end;

[namelesshero]

Çok Teşekkürler hemen deneyeceğim....

[namelesshero]

Çok Teşekkürler Oldu.