|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Пару вопросов по сети
помогите решить несколько вопросов по сети:
1. Как Определить какой Web Browser стоит по умолчанию 2. Как Определить внешний и внутренний IP адрес 3. Как Узнать скорость текущего соединения 4. Как Определить размер файла с сервера (по ссылке) 5. Как Отключить/Включить интернет соединение ? естественно програмным путем |
#2
|
|||
|
|||
Жизнь - игра: сюжет фигня... Зато какая графика!!! |
#3
|
|||
|
|||
что?
|
#4
|
||||
|
||||
Понять, что хочет заказчик - бесценно, ведь он платит MasterCard |
#5
|
|||
|
|||
я видел это, не слепой...
а пояснить тут никак? p.s. на том сайте кроме как внутреннего IP адреса ничего нет (я этот способ итак на этом сайте нашел) Последний раз редактировалось ApplicatiOn, 20.11.2008 в 20:40. |
#6
|
||||
|
||||
Ищи в Инете, примеров много, сам в свое время искал
|
#7
|
||||
|
||||
Цитата:
|
#8
|
|||
|
|||
Цитата:
А че у гугла сервер упал?? или мозга мало что бы это все по очереди в гугле написать? |
#9
|
||||
|
||||
Цитата:
Внешний 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 не знаю... Но точно есть на дельфи мире... |