[ApplicatiOn]

помогите решить несколько вопросов по сети:

1. Как Определить какой Web Browser стоит по умолчанию
2. Как Определить внешний и внутренний IP адрес
3. Как Узнать скорость текущего соединения
4. Как Определить размер файла с сервера (по ссылке)
5. Как Отключить/Включить интернет соединение

?

естественно програмным путем

[DSL88]

www.delphiworld.narod.ru

[ApplicatiOn]

что?

[cotseec]

http://www.delphiworld.narod.ru/_internet_.html

[ApplicatiOn]

я видел это, не слепой...

а пояснить тут никак?

p.s. на том сайте кроме как внутреннего IP адреса ничего нет (я этот способ итак на этом сайте нашел)

[Vayrus]

Ищи в Инете, примеров много, сам в свое время искал

[:S.p.a.m.]

Сообщение от ApplicatiOn

помогите решить несколько вопросов по сети:

1. Как Определить какой Web Browser стоит по умолчанию
2. Как Определить внешний и внутренний IP адрес
3. Как Узнать скорость текущего соединения
4. Как Определить размер файла с сервера (по ссылке)
5. Как Отключить/Включить интернет соединение

?

естественно програмным путем

Как разорвать LAN соединение пойдет?

[olegteror]

помогите решить несколько вопросов по сети:

1. Как Определить какой Web Browser стоит по умолчанию
2. Как Определить внешний и внутренний IP адрес
3. Как Узнать скорость текущего соединения
4. Как Определить размер файла с сервера (по ссылке)
5. Как Отключить/Включить интернет соединение

?

естественно програмным путем

А че у гугла сервер упал?? или мозга мало что бы это все по очереди в гугле написать?

[Casper-Hacker]

Сообщение от ApplicatiOn

помогите решить несколько вопросов по сети:

1. Как Определить какой Web Browser стоит по умолчанию
2. Как Определить внешний и внутренний IP адрес
3. Как Узнать скорость текущего соединения
4. Как Определить размер файла с сервера (по ссылке)
5. Как Отключить/Включить интернет соединение

?

естественно програмным путем

Внешний IP:

Код:

function getip:string;
var
a:integer;
source2ip:string;
http1:TidHttp;
begin
http1:=Tidhttp.Create(nil);
source2ip:=http1.Get('http://2ip.ru');
a:=pos('<font color="#0033FF">',source2ip);
delete(source2ip,1,a+22);
a:=pos('</font>',source2ip);
delete(source2ip,a,length(source2ip)-a+1);
Result:=source2ip;
http1.Destroy;
end;

Внутренний IP:

Код:

function GetLocalIP: String;
const WSVer = $101;
var
wsaData: TWSAData;
P: PHostEnt;
Buf: array [0..127] of Char;
begin
Result := '';
if WSAStartup(WSVer, wsaData) = 0 then begin
if GetHostName(@Buf, 128) = 0 then begin
P := GetHostByName(@Buf);
if P <> nil then Result := iNet_ntoa(PInAddr(p^.h_addr_list^)^);
end;
WSACleanup;
end;
end;

В Uses добавь WinSock.

Скорость интернет соединения делай по тому же способу как и внешний ip только со странички http://2ip.ru/speed/test.php

Веб браузер по умолчанию...
Код Дельфи Мира.

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  Reg: TRegistry;
  KeyName: string;
  ValueStr: string;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CLASSES_ROOT;
    KeyName := 'htmlfile\shell\open\command';
    if Reg.OpenKey(KeyName, False) then
    begin
      ValueStr := Reg.ReadString('');
      Reg.CloseKey;
      Label1.Caption := ValueStr;
    end
    else
      ShowMessage('No Default Webbrowser !');
  finally
    Reg.Free;
  end;
end;

4,5 не знаю... Но точно есть на дельфи мире...