Web (URL) kontrolü delphi 7

[Shou]

Merhabalar delphi xe ile yapılmış url kontrolu mevcut fakat delphi 7 de nasıl yapılır bilmiyorum yardımcı olursanız çok sevinirim ;

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
  ResponseStream: TStringStream;
begin
  ResponseStream := TStringStream.Create;
  Edit2.Text := 'Sorgulanıyor';
  try

    IdHTTP1.Get(Edit1.Text, ResponseStream);
    Edit2.Text := ResponseStream.DataString;
  except
    Edit2.Text := 'Websitesine Ulaşılamıyor'
  end;
end;

delphi 7 de çalışmıyor ama delphi xe de sorunsuz çalışıyor uzman biri yardım ederse çok sevinicem?

[Shou]

test için kullandıgım sayfa : http://31.210.79.11/test1.php
delphi xe de sorunsuz çalışıyor ama delphi 7 de şu kısım hata veriyor ;

Kod: Tümünü seç

ResponseStream := TStringStream.Create;

bu kısmı delphi 7'de şöyle yapıyorum ;

Kod: Tümünü seç

ResponseStream := TStringStream.Create('asd');

ama web sitesine ulaşamadı diyor hiçbir şekilde?

[SimaWB]

Web sayfasıbdan dönen değerle bir işiniz yoksa, yani sadece yanıt alınıp alınmadığıyla ilgileniyorsanız ResponseStream 'e ihtiyacınız yok.

Kod: Tümünü seç

IdHTTP1.Get(Edit1.Text, nil);

şeklinde kullanıp daha sonra

Kod: Tümünü seç

IdHTTP1.ResponseCode

değerini kontrol edebilirsiniz.

[Shou]

teşekkür ettim yapmayı başardımda web sitedeki değeri çekemezmiyiz peki?

Kod: Tümünü seç

  Edit1.Text := IdHTTP1.Response;

vs olmuyor abi hata verıyor kırmızı oluyor?

[dpcmsx]

Biraz daha basit bir yöntem (sadece site kontrolü);

Kod: Tümünü seç

uses Wininet;

...

procedure TForm1.Button1Click(Sender: TObject);

var
  hSession,hservice: HINTERNET;
  chkurl : string;

begin

  chkurl := 'http://www.google.com.tr';

 hSession := InternetOpen('CheckUrl', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
 try
  if Assigned(hSession) then
    begin
    hService := InternetOpenUrl(hSession, PChar(chkurl), nil, 0, 0, 0);
     if Assigned(hService) then
     ShowMessage('Site Ok')
     else
     ShowMessage('Site Yok');
    end;
Finally
  InternetCloseHandle(hService);
  InternetCloseHandle(hSession);
  end; end;