Kod Örnekleri

WebBrowser kullanarak sayfanın html kodlarını kaydetme

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

 

Delphi7 WebForm Doldurma ve Submit etme

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

Delphi de if içerisinde in kullanımı

 

 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ı

BeÄŸendin mi? PaylaÅŸ!