Form uzerine kesinlikle gerekenler:
TWebBrowser
Uses'a eklenecek objeler:
Httpapp, StdCtrls, OleCtrls
Kod:
Kod:
var EncodedDataString: string; PostData: OleVariant; Headers: OleVariant; i: integer; begin // Gonderilecek post edilecek verilecek. EncodedDataString := 'username='+HTTPEncode('Admin']'&'+ 'password='+HTTPEncode('1234'); PostData := VarArrayCreate([0, length(EncodedDataString)-1], varByte); for i := 1 to length(EncodedDataString) do PostData[i-1] := ord(EncodedDataString[i]); Headers := 'Content-type: application/x-www-form-urlencoded'#10#13; // Aşağıda http:// 'den sonraki yere post edilecek adresi yazın orn.: www.frmtr.com/index.php WebBrowser1.Navigate('http://, EmptyParam, EmptyParam, PostData, Headers);
Ornek:
Google'da arama icin kullanılacak ise:
Kod:
var EncodedDataString: string; PostData: OleVariant; Headers: OleVariant; i: integer; begin EncodedDataString := 'q'+HTTPEncode(edit1.text); PostData := VarArrayCreate([0, length(EncodedDataString)-1], varByte); for i := 1 to length(EncodedDataString) do PostData[i-1] := ord(EncodedDataString[i]); Headers := 'Content-type: application/x-www-form-urlencoded'#10#13; WebBrowser1.Navigate('http://www.google.com/search, EmptyParam, EmptyParam, PostData, Headers);

__________________