[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:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

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:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

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

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

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 не знаю... Но точно есть на дельфи мире...