Delphi Forum

Teşekkür Ederim hocam Sağolun

Bir sorum daha olacak.
Shape Nesnesin bulunduğu noktanın rengini almasını istiyorum.Ne yapablirim.
Örnek bir image1 nesnem var buna ekli fotoğraf var.fotoğrafın üstünde shape nesneleri var.istiyorumki resmin üstündeki shape nesnesi bulunduğu alanın rengini alsın ...

Kolay Gelsin Arkadaşlar
Basit bi program yaptımda formda 1296 adet shape var ben bunların pen rengini tek butonla colorboxtan seçtiğim renk olarak atamak istiyorum.
Shape1.Pen.Color:=ColorBox1.Selected;
dediğimde sıkıntı yok ama 1296 defa bunu yazmak yerine daha basit bir yolu varmı acaba ...

Access Veri Tabanı
Adı Durum
EnrollNumber Metin
Durumu Metin
Baslangic
Bitis

Access Veri Tabanı
Adı KullaniciBilgisi
EnrollNumber
AdSoyad
Durumu

yapmak istediğim şey başlangıç ve bitişe girdiğim tarih saat değerlerine göre kullanicibilgisi tablosundaki durumu alanını Durum tablosundaki Durumu ...

Formuna bir adet webbrowser ve bir button koy. Formun uses kısmına OleCtrls ve MSHTML ekle.
Form açıldığında siteyi navigate et ve sayfa yüklendiğinde button1 tıklayarak aşağıdaki kodu dene.
Tesisat numarası girilecek kutunun name ve id si aynı verilmiş =txtWiringNo
Formunuzdaki Buttona aşağıdaki ...

kullanıcı adı ve şifre
deneme yapabilirmisiniz.

Tesisat No 04914276
Şifre T4914276
dediğiniz gibi yaptım hata veriyor.

begin
EmbeddedWB1.Navigate('http://osos.dedas.com.tr:6767/osos/subscriber/FrmLogin.aspx?ReturnUrl=~/Forms/FrmIndexInfo.aspx');
while EmbeddedWB1.ReadyState<>READYSTATE_COMPLETE do
Application.ProcessMessages;

EmbeddedWB1.OleObject.Document.GetElementById('txtWiringNo').Value:='yazmak istediğin ...

hocam bunu ekledim procedure pr_AlanDoldur(Sender: TObject);


{$R *.dfm}
hemen altına
prosedürüde en başa ekledim.
_sTagName
_sId
_sIdValue
bunlarda hata veriyor.

Selamünaleyküm arkadaşlar
http://osos.dedas.com.tr:6767/osos/subscriber/FrmLogin.aspx?ReturnUrl=~/Forms/FrmIndexInfo.aspx

bu sitedeki input alanlara değer göndermem gerekli şifre kısmını hallettim butonuda click olayı ile tetikleme olayını çözdüm.
bir tek tesisat numarasını yapamadım.
Yardım ...

Kolay gelsin
İki tane tarih alanım var

bunlara tarih ve saati giriyorum.
Baslangic Bitis
28.06.2016 16:04:23 28.06.2016 18:00:00



ve veri tabanına kayıt yaparkende şu sql cümlesini kullanıyorum.


simdi:=DateTimeToStr(Now);

VeriTabani.QSorgu.Close;
VeriTabani.QSorgu.SQL.clear;
VeriTabani.QSorgu ...

Arkadaşlar Merhaba
Delphi XE5 te datasnap denemesi yaptım.verileri emülatörde görebiliyorum.
Ancak ClientDataset ile yeni kayıt ekleyemiyorum.
Verdiği hata Safe Not is Call Method
Yalnız hiç gerçek bir telefon da denemedim.Bu konuda yardım edebilir misiniz.
Bu hatanın sebebi nedir acaba.
Şimdiden ...

Function ExcelCopyToStringGrid(
Excel : Variant;
ExcelFirstRow : Integer;
ExcelFirstCol : Integer;
ExcelLastRow : Integer;
ExcelLastCol : Integer;
StringGrid : TStringGrid;
StringGridFirstRow : Integer;
StringGridFirstCol : Integer;
SizeStringGridToFit : Boolean; {Make the StringGrid the same size ...

var
kullanici,sifre:string;
sonuc:integer;
begin
kullanici:=Edit2.Text;
sifre:=Edit1.Text;
IBQuery1.Close;
IBQuery1.SQL.Clear;
IBQuery1.SQL.Add('select * from ACCOUNT where KADI='+QuotedStr(kullanici));
IBQuery1.SQL.Add('and SIFRE='+QuotedStr(sifre));
IBQuery1.Open;
sonuc:=IBQuery1.RecordCount ...

Selamlar
Arkadaşlar veritabanına SYSDBA ile bağlanıp herşeyi yapabiliyorum.
Ben firebird den ve delphiden veritabanına bağlanıp yeni kullanıcı ekliyorum eklediğim kullanıcılara yetki verebiliyorum.
Örnek
GRANT ALL ON ACCOUNT TO MEHMET

MEHMET adındaki bu kullanıcı ile veritabanına bağlandığım zaman ...

Kolay Gelsin.
Modem den TCP/UDP olarak iki port açıp yönlendirme yaptığımda uzaktan erişim sağlayabiliyorum.

Yaptığım işlem
TCP/UDP 7000 ve TCP/UDP 3500 olarak açtım (Portları sallama olarak verdim.)
Yönlendirme olarak ta 192.168.2.x olarak modemden yönlendirdim.
Bu şekilde yaptığımda programım ...

Teşekkürler en kısa sürede deneyip sonucu paylaşacağım.