arşiv

‘Delphi’ kategorisi için arşiv

WinHttp.WinHttpRequest.5.1 Kullanım Örneği

Salı, 09 Ağu 2016 yorum yok
var oHttp : variant;

//http://techsupt.winbatch.com/webcgi/webbatch.exe?techsupt/tsleft.web+WinBatch/OLE~COM~ADO~CDO~ADSI~LDAP+Set~Proxy~Server~and~Port.txt
    //Instantiate a WinHttpRequest objec
oHttp:=CreateOleObject('WinHttp.WinHttpRequest.5.1');
    //Initialize an HTTP request. 
oHttp.open('POST', Url, false);

oHttp.setRequestHeader('User-Agent', 'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)');

    {
      //HttpRequest SetCredentials flags.
      HTTPREQUEST_PROXYSETTING_DEFAULT   = 0;
      HTTPREQUEST_PROXYSETTING_PRECONFIG = 0;
      HTTPREQUEST_PROXYSETTING_DIRECT    = 1;
      HTTPREQUEST_PROXYSETTING_PROXY     = 2;
    }
    //Use proxy_server
oHttp.setProxy(2, 'xxyydd:80','');

oHttp.setRequestHeader('Content-type', 'application/x-www-form-urlencoded');

    //Send the HTTP request.
oHttp.send(oleVar);

showmessage(oHttp.responsetext);

 

Categories: Delphi Tags:

Delphi – Fonsiyon Tanım ve Dönüş Değeri Atama

Çarşamba, 27 Tem 2016 yorum yok

Bir fonksiyon şu şekilde tanımlanır.

Function FonksiyonAdı (GirişParametreleri:Tipi):FonkTipi;
var
sabit,değişken,tiptanımı
begin
	Program Komutları;
	FonksiyonAdı:=deger;
End;

Procedure tanımından farklı olarak fonksiyon geriye bir değer göndereceği için bu değerin tipi fonksiyon tanımından sonra FonkTipi parametresi ile belirlenir. Ayrıca geri dönecek değer fonksiyon adına yada Result ifadesine atanan değer ile yapılır.

Birinci yol;

Function FonksiyonAdı (GirişPArametreleri:Tipi):FonkTipi;
var
	sabit,değişken,tip tanımı
begin
	Program Komutları;
	Result:=Deger;
End; 

İkinci yol;

Function FonksiyonAdı (GirişPArametreleri:Tipi):FonkTipi;
var
	sabit,değişken,tip tanımı
begin
	Program Komutları;
	FonksiyonAdı:=Deger;
End; 

 

Categories: Delphi Tags: