WebBrowser kullanarak sayfanın html kodlarını kaydetmek için yazılacak kod

Uses MSHTML,... ;
Var   iall : IHTMLElement;

procedure TForm1.Button3Click(Sender: TObject);
begin
if Assigned(WebBrowser1.Document) then
begin
iall := (WebBrowser1.Document AS IHTMLDocument2).body;

Devamını oku: WebBrowser kullanarak sayfanın html kodlarını kaydetme

Web sayfalarındaki Form doldurmak  ve istediğiniz formu (aynı anda 2 veya daha fazlası varsa) submit etmek için kullanacağınız güzel bir kod.

Kod Kullanmaya başlamadan önce eklenecek satırlar

Uses MSHTML,... ;
Var   iall : IHTMLElement;

function FillForm(WebBrowser: TWebBrowser; FieldName: string; Value: string): Boolean;
var
i, j: Integer;
FormItem: Variant;
begin
Result := False;

for I := 0 to WebBrowser.OleObject.Document.forms.Length - 1 do
begin
FormItem := WebBrowser.OleObject.Document.forms.Item(I);
for j := 0 to FormItem.Length - 1 do
begin

 

Devamını oku: Delphi7 WebForm Doldurma ve Submit etme

 if içerinde in kullanmak case gibi kullanmak mantıklı olmasa da uzunca bir if yapısından bizi kurtaracaktır.

 in içerisinde kullanılacak  değerlerin char veya sayı olması gerekmektedir.

Devamını oku: Delphi de if içerisinde in kullanımı

Firebird 2.1 ile KullanabileceÄŸiniz Fonksiyonlar

Firebird 2.1 ile pek çok internal fonksiyon eklenip, Firebird'ün bir açığı daha kapandı. Biliyorsunuz daha önce UDF ile ayrı fonksiyonlar çalıştırabiliyordunuz, ama artık elinizde tam bir set var. Hemen hemen bütün işlerinize yetecek kadar internal fonksiyon var.

Tabii bu fonksiyonları select cümlelerinizde, stored procedure'lerde ve trigger gibi veritabanının her yerinde kullanabilirsiniz.

Devamını oku: Firebird 2.1 ile Kullanabileceğiniz Fonksiyonlar