Delphi Forum

function DosyaIndir(Source, Dest : String): Boolean; begin try Result := URLDownloadToFile(nil,PChar(Source),PChar(Dest),0,nil) = 0 except Result := False; end; end; Slm arkadaşlar; "HTTP" adresi ile baslaşayan sitelerden; yukarıdaki fonksiyon ile dosya indirebiliyordum. "HTTPS"...

OpenDialog1.options.ofAllowMultiselect:=True yapınız

select * from tablo1 where tablo1.hucre=0 or tablo1.hucre is null

firebird için

procedure ChangeConst(const Constant; var Value; Size: Integer); begin Move((@Value)^, (@Constant)^, Size); end; // How to use ChangeConst: (Sample) const TestStrConst: string = 'This is a text sample'; TestInteger: Integer = 4367; var NewString: string; NewInteger: Integer; begin // String Demo: S...

var excel,book1,book2:OleVariant;

Excel:= CreateOleObject('Excel.Application');
book1:=Excel.WorkBooks.Open(sHedef);
book2:=Excel.WorkBooks.Open(sKaynak);
book2.Sheets['Sayfa1'].Copy(After:=book1.Sheets['Sayfa2']);
Excel.Save;
book1.Close;
book2.Close;

SH.STHAR_BF, From
From dan önceki virgülü kaldır.

var bTitlechange:Boolean;//Global bir değişken yarat procedure TFrmMain.Run; begin bTitleChange:=False; while bTitleChange=False do Application.ProcessMessages;//kodların işlemesini bekle ......//buraya kodlarını yaz. end; //OnTitlechange procedure TFrmMain.WebTitleChange(ASender: TObject; const Tex...

Cevap için teşekkür ederim.

İlk WebBrowserda senin dediğin gibi bilgileri kayıt edebiliyırum.
Ama benim isteğim, bu WebBrowser'ın açıtığı ikinci pencereye kayıt yapabilmek?

Bir tane ana WebBrowser'ım var. Bu WebBrowser’ın üzerindeki bir butona basınca, ikinci bir pencere (popup gibi, DialogBox) açılmaktadır. Bu açılan 2. pencerdeki bazı alanları check edip, aktar düğmesine click yaptığım zaman burdaki bilgiler ilk pencereye aktarılmaktadır. İşte bu anlatığım işlemi kod...

Arkadaşlar; Sayfalar arası geçişte WebBrowser yükledikten sonra işlem yapmam gerekiyor. onDocumentComplete onDownloadComplete while webBrowser1.ReadyState <> READYSTATE_COMPLETE do Application.ProcessMessages; while webBrowser1.Busy do Application.ProcessMessages; olayları ve komutları işe yaramadı....

Çok teşekkür ederim. Sayenizde problem çözülmüştür.

https://ekap.kik.gov.tr/EKAP/Default.aspx sitesine bilgi girişi yapmak istiyorum. Kayıt ekledikçe 20 kayıt bir otomatik olarak sayfalar oluşmaktadır. Ben bu sayfalardan birine (örenğin 4. sayfaya) kod ile tıklamak istiyorum. <td><span>1</span></td><td><a href="javascript:__doPostBack('ctl00$Co...

Aslan geri cevabın için teşekkür ederim.

alias veya tam yolunu vererek bağlantı yapabiliyorum.

Asıl yapmak istediğim.

Uygulamamda OpenFile.execute diyerek dosyayı seçip bağlanabilmek?

Selam herkese öncelikler, Firebird 2.1, İşletim sistemi XP Ibexpert ile ağda paylaşıma acılmış bir dosya ile bağlantı kurmak istiyorum. Dosyayı Database File den seçiyorum. Seçim sonrası \\ahmet\VT\test.fdb şeklinde dosya ismi geliyor, ancak bağlantı kurulamıyor. Bağlantı yolu tam verilirse 1. bağla...