prosedürde activex componentinin özelliğini kullanma

[fryrmnd]

Herkese kolay gelsin arkadaşlar. Deplhi'de yeniyim. Bir adet ip kameramız var üreticisi tarafından sunulan bir activex nesnesi var. Bunu kullanarak form üzerinde canlı görüntü alabiliyoruz. Fakat kameranın ayarları(ip adresi olsun,çözünürlük olsun,kullanıcı şifresi vs) herseferinde uzun uzun yazmaktansa bu parametreleri alan bir prosedür tanımlyalım dedik fakat 'unable to invoke Code Compeletion due to errors in source code' hatasından kurtulmadık.

Kod: Tümünü seç

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, [u]OleCtrls, IPROPSAPILib_TLB[/u];

type
  TForm1 = class(TForm)
    [u]ipropsapiCtrl1: TipropsapiCtrl;[/u]
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure kameracontrol();
begin
  ipropsapiCtrl1.IpAddr:='10.10.0.27' ; [b] (Burada sürekli yazdığım hatayı alıyorum. Buton click prosedürüne yazsam hiçbir sıkıntı yok) [/b]
end;

end.

burda da manuelin control ile ilgili açıklamaları var

5.2.2.2. IPAddr

Object PSAPI Control
Property IPAddr

BSTR IPAddr

Description
Set IP Address or host name of a target device into PS-API.
Get IP Address or host name of a target device from PS-API.

Value
Character strings IP Address or host name
(255bytes or less) e.g. 192.168.0.10

Default value is “192.168.0.10”.

Return value
None

Error

© Panasonic System Networks Co., Ltd. 2012


yol gösterebilirseniz ço makbule geçicek.

[SimaWB]

kameracontrol procedure'ü içerisinde erişmeye çalıştığınız ipropsapiCtrl1 bileşeni Form1'e ait. Dolayısıyla ona ulaşmak için önce Form1'e ulaşmalısınız. Kodunuzu aşağıdaki şekilde değiştirirseniz çalışır:

Kod: Tümünü seç

procedure kameracontrol();
begin
  Form1.ipropsapiCtrl1.IpAddr:='10.10.0.27';
end;

[unicorn64]

yada kamerakontrol prosedürünü TForm1 sınıfı içinde tanımlamalısınız...

Kod: Tümünü seç

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, [u]OleCtrls, IPROPSAPILib_TLB[/u];

type
  TForm1 = class(TForm)
    ipropsapiCtrl1: TipropsapiCtrl;
  private
    { Private declarations }
    procedure kameracontrol; 
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.kameracontrol;
begin
  ipropsapiCtrl1.IpAddr:='10.10.0.27' ; 
end;

end.

[fryrmnd]

Arkadaşlar çok teşekkür ederim. Bu mantık sanırım nesneye yönelik(class felan) programlama ile ilgili. Bunları anlayabileceğim işte şu şundan türer şu şunun elemanıdır gibisinden anlatan, döngü yapıları,veri türlerine girip işi uzatmayan bir link,kaynak vs var mı? Basit anlaşılır. Çok şey istedim galiba. Delphi 7 nin türkçe kitabı var. Feana değil gibi ama sanki biraz karışık.