İnternet KONTROLÜ - Sunucu KONTROLU -

[Shou]

Merhabalar ;

1- delphi 7'de bilgisayarın internet bağlantısı varmı yokmu program açarken nasıl kontrol ettirtirebilirim?

Fikir : program açarken internet bağlantısı yoksa (msgbox çıksın : İnternet bağlantınız bulunmuyor lütfen daha sonra tekrar deneyiniz.) desin, programı kapatsın.

2- delphi 7 kullanıyorum ; programı açarken "31.79.210.11" sunucu "vps" sunucu ping atsın veya başka bir yöntem yapamadım ben sunucu açık mı degilmi kontrol etsin yada şöylede olabilir : www.google.com.tr linki açıkmı dilmi siteye baglanıyormu baglanmıyormu baglanmıyorsa "Ana sunucuya bağlanamıyor.." desin.

3- program'da "print screen" tuşuna bastıgımızda görüntüyü kaydedip d: ' ye goruntu1 , goruntu2 diye dewamı gitsin ama ayrı ayrı klasor olarak yapmak ıstıyorum çünkü program goruntu kaydederse kapatıp actıgımızda tekrar aynı goruntu ustune kaydedıyor benım yapabildigim kod şunlardır ;

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
Const
{$j+} i : Integer = 0; {$j-}
var
  DCDesk: HDC;
begin
  DCDesk:=GetWindowDC(GetDesktopWindow);
  BitBlt(image1.Canvas.Handle, 0, 0, Screen.Width, Screen.Height,DCDesk, 0, 0,SRCCOPY);
  ReleaseDC(GetDesktopWindow, DCDesk);
  image1.Picture.SaveToFile('D:\G-KANIT-' +inttostr(i)+'.JPG'); // D: ' ye kaydet.
  inc(i);
end;

dewamında yardımcı olursanız sevinirim.

[mkysoft]

Indy paketini yüklerseniz içerisinden ping için araç çıkacaktır. Ama size tavsiyem idhttp ile yapmanız. server üzerinde bulunacak küçük bir dosyayı idhttp ile açın. eğer işlem başarılıysa internet var demektir. forumda idhttp diye aratırsanız hazır örnekler mevcut.

resim kaydetme olayınıza gelince; öncelikle daha önceki kayıtlı dosyaları arayın, ve son kaydettiğiniz numarayı dosya adından bularak kaldığınız yerden devam edin. tabiki son kaldığınız numarayı registry'e yada bir ini dosyasına da kaydedebilirsiniz. Gerekli örnekler için yine arama yapın.

[esrehmaan]

Kod: Tümünü seç

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdIPWatch, StdCtrls, ExtCtrls, Wininet ; /////// Wininet yazmayı unutma

type
  TForm1 = class(TForm)
    Button1: TButton;
    IdIPWatch1: TIdIPWatch;
    Image1: TImage;
    Button2: TButton;
    Label1: TLabel;
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}





function isInternetConnected:boolean;
begin
  Result := InternetGetConnectedState(nil, 0) ;
end;
procedure TForm1.Button2Click(Sender: TObject);
Const
{$j+} i : Integer = 0; {$j-}
var
  DCDesk: HDC;
begin
  if isInternetConnected then
  begin
  DCDesk:=GetWindowDC(GetDesktopWindow);
  BitBlt(image1.Canvas.Handle, 0, 0, Screen.Width, Screen.Height,DCDesk, 0, 0,SRCCOPY);
  ReleaseDC(GetDesktopWindow, DCDesk);
  image1.Picture.SaveToFile('D:\G-KANIT-' +inttostr(i)+'.JPG'); // D: ' ye kaydet.
  inc(i);
  end
  else
  showmessage('İnternet bağlantınız bulunmuyor lütfen daha sonra tekrar deneyiniz.')


end;



end.

işinzie yarar umarım

[Shou]

İnternet kontrolu tek form başlarken yapsın yaparmısın ama bağlantı yoksa bağlantınız yok desin tek? diğer türlü dewam etsin..

[esrehmaan]

Kod: Tümünü seç

    unit Unit1;

    interface

    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, IdBaseComponent, IdComponent, IdIPWatch, StdCtrls, ExtCtrls, Wininet ; /////// Wininet yazmayı unutma

    type
      TForm1 = class(TForm)
        Button1: TButton;
        IdIPWatch1: TIdIPWatch;
        Image1: TImage;
        Button2: TButton;
        Label1: TLabel;
        procedure Button2Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;

    var
      Form1: TForm1;

    implementation

    {$R *.dfm}





    function isInternetConnected:boolean;
    begin
      Result := InternetGetConnectedState(nil, 0) ;
    end;
    procedure TForm1.Button2Click(Sender: TObject);
    Const
    {$j+} i : Integer = 0; {$j-}
    var
      DCDesk: HDC;

      begin
      DCDesk:=GetWindowDC(GetDesktopWindow);
      BitBlt(image1.Canvas.Handle, 0, 0, Screen.Width, Screen.Height,DCDesk, 0, 0,SRCCOPY);
      ReleaseDC(GetDesktopWindow, DCDesk);
      image1.Picture.SaveToFile('D:\G-KANIT-' +inttostr(i)+'.JPG'); // D: ' ye kaydet.
      inc(i);



    end;
procedure TForm1.FormCreate(Sender: TObject);

    begin
      if isInternetConnected then
begin
showmessage('bağlantın var');
end
else
begin
showmessage('bağlantın yok');
Application.Terminate;
end;
    end.

Kolay gelsin

[Shou]

Kod: Tümünü seç

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, XPMan, StdCtrls, Wininet, IdBaseComponent, IdComponent,
  IdIPWatch ; /////// Wininet yazmayı unutma

type
  TForm1 = class(TForm)
    Button1: TButton;
    XPManifest1: TXPManifest;
    IdIPWatch1: TIdIPWatch;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

    function isInternetConnected:boolean;
    begin
      Result := InternetGetConnectedState(nil, 0) ;
    end;

procedure TForm1.Button1Click(Sender: TObject);
begin
      if isInternetConnected then
begin
showmessage('bağlantın var');
end
else
begin
showmessage('bağlantın yok');
Application.Terminate;
end;
end;
end.

abi yaptım tamam böyle ama bir fazlası var =)
benim yapmak istedigim olay şu program açarken internet baglantısı yoksa : internet bağlantınız yok hata versin kapatsın o kadar?
internet baglantın var demeye gerek yok yani yoksa yok desın programı kapatsın?

[esrehmaan]

showmessage('bağlantın var');

kodunu silersen zaten sana var demez direk açılır eğer yok isede sana bağlantın yok diyip programı kapatır...

[Shou]

peki abi aynı şekil url kontrolu nasıl yaparım?

[baloglurecep]

Selamlar .... bu şekilde bireysel direk modemden bağlantılı internet varmı yok mu? anlaşılabiliniyor. Ancak network üzerinden paylaşılan internetin olup olmadığı anlaşılmıyor. Ağ bağlantısı olup ancak interneti olmayanları nasıl anlayabiliriz?

[notname]

Selamlar .... bu şekilde bireysel direk modemden bağlantılı internet varmı yok mu? anlaşılabiliniyor. Ancak network üzerinden paylaşılan internetin olup olmadığı anlaşılmıyor. Ağ bağlantısı olup ancak interneti olmayanları nasıl anlayabiliriz?

programı bir web adresine yönlendirirsin eğer giriyorsa demekki net vardır. socket ilede local makinenin ip adresini aldırırsın ağa bağlı olmayan bir pcnin standart ip'si 127.0.0.1 olacagına göre. adres bu değilse demekki ağa baglıdır.