Delphi Forum

arkadaşlar projemde aşagıdaki kodu netden buldum fakat bir sorun yaşıyorum. kodu çalıştırdıgımda portda sorun oluyor sonraki gönderi yolda kayboluyor tekrar gönderdiğimde gidiyor sorun ne olabilir acaba acil yardım lütfen saygılarımla


function IsPortActive(AHost : string; APort : Word): boolean ...

http://www.gmtcontrol.com/tr/yuklemeler ... malar.html

yukardaki linkdeki;
modbus tcp üzerinde c# ile haberleşme örnegi

adlı uygulamayı delphiye çevirebilecek var mı acaba?

saygılarımla

string FBText = "INSERT into " + Gd._AktifDers + " (KITAPADI,S1,S2,S3,S4,S5,S6,S7,S8,S9,S10,S11,S12,S13,S14,S15,";
FBText = FBText + "S16,S17,S18,S19,S20,S21,S22,UNITE) Values";
FBText = FBText + " (@kitapAdi,@s1,@s2,@s3,@s4,@s5,@s6,@s7,@s8,@s9,@s10,@s11,@s12,@s13,@s14,@s15,";
FBText = FBText ...

22 inci soruya kadar duzgun kaydediyor sonrasında hata veriyor. sqlText 255 karakteri geçemez diye bir şey kalmış aklımda ama bu tip durumlarda ne yapıyorsunuz sorunu nasıl çözüyorsunuz saygılarımla


string FBText = "INSERT into " + Gd._AktifDers + " (KITAPADI,S1,S2,S3,S4,S5,S6,S7,S8,S9,S10,S11 ...

procedure TForm1.Button1Click(Sender: TObject);
begin
oPlayer1.PlayVideo('admin','888888','192.168.1.113',81,0,0);
//oPlayer1.ShowNormal;
//oPlayer1.ShowMax; //tam ekran gösterir

// function PlayVideo(const user: WideString; const pwd: WideString; const ip: WideString;
// port: Integer; streamid ...

5 yıl geçti hala çözemedim :) ama ilerleme kaydettim :)

ip kamera ocx ile delphi form içinde görüntü alabiliyorum ama resim capture olayı bit türlü olmuyor bu ocx konusunda sadece 2 sitede bilği var başka hiç bir bilği yok
site-1: http://www.codenewsfast.com/cnf/article//waArticleBookmark.7405229 ...

eski konu ama tam benim sorunumu anlatıyor

tabloda bir satırı diğerine aktarmam lazım aktardıktan sonrada satırı boşaltmam lazım
uzun yoldan bilgileri okuyarak tekrar update yaparak oluyor ama daha pratik bir yöntem var mı.

örnegin 2 nolu satırı 1 nolu satıra update yapmak için


str:='UPDATE ...

delphi7 kullanıyorum hocam
teşekkürler cevabınız için saygılar sunarım.

teşekkürler arkadaşlar

programım usb bellek takılıysa çalışıyor yoksa çalışmıyor (seri numarasını karşılaştırıyor)
saygılarımla

HOCAM uzunluğu 10 karakterden fazla ise temizle değil integer olarak 10 dan büyükse temizle yapması lazım
saygılarımla

form kodları

implementation
uses Unit2;
{$R *.dfm}

procedure TForm1.Edit1Change(Sender: TObject);
begin
yaz(Edit1.Text);
end;


unit kodları

unit Unit2;

interface
procedure yaz(g:string);
implementation
uses Unit1, SysUtils;

procedure yaz(g:string);
begin

if StrToInt(g)>10 then Form1.Edit1 ...

hocam tamamdır. sorun çözüldü.
uyarılarınızı dikkate alacagım. delphi7 kullanıyorum.

yardımınız için çok yürekten minnettar oldum.
allah razı olsun.

saygılar

arkadaşlar seri porta byte dizi göndermem lazım nasıl yapılır yardımcı olabilirmisiniz

saygılarımla


var
mesaj:Array[0..10] of byte;
i:integer;
begin
mesaj[0]:=1;
mesaj[1]:=6;
mesaj[2]:=0;
mesaj[3]:=0;
mesaj[4]:=0;
mesaj[5]:=0;
mesaj[6]:=137;
mesaj[7]:=202;

for i:=0 to 7 do
begin
//ApdComPord ...

internetde aşağıdaki kodu buldum tam istediğim gibi
ama tüm usb bellekleri değilde benim gönderdiğim örnek E flash belleginin seri numarasını almasını istiyorum
kurcaladım ama beceremedim yardımcı olabilecek var mı acaba
saygılarımla



implementation

{$R *.dfm}

Uses ActiveX, WbemScripting_TLB ...

CreateFileMapping nedir diye araştırdığımda bir dosyanın bellege yüklenmesi olarak
görünüyor. yani bir dosyayı bellege kaydediyoruz adreslerini alıyoruz o adresdeki bilğiileri okuyoruz veya yazıyoruz
fiziksel txt veya ini dosyası kullanmadan dosyayı bellege yükleyerek daha hızlı okuma ve yazma ...