wsacleanup



Автор ASD ASDA задал вопрос в разделе Другие языки и технологии

Delphi 7 помагите нужен помош и получил лучший ответ

Ответ от Костя Плетнёв[новичек]
function GetLocalIP: String; const WSVer = $101; var wsaData: TWSAData; P: PHostEnt; Buf: array [0..127] of Char; begin Result := \'\'; if WSAStartup(MAKEWORD(2,0), 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; и вызываешь эту функцию в лэйбл: label1.caption:=GetLocalIP; НЕ НАДО В функции GetLocalIP писать массивЧар в стринг!!! !например: процедур ТФормюОнбуттноклик (сендер: тобджект) бегин лэйбл1.каптион: =ГетЛокалАйПи энд

Ответ от AnGeL lOvE...[активный]
если бы я знала

Ответ от Smartsoft-news.ru[гуру]
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

Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с ответами на Ваш вопрос: Delphi 7 помагите нужен помош
спросили в Maserati Pectinoida
Как с помощью Delphi узнать свой внешний IP?
...
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,
подробнее...

где продать ссср монеты в Тамбове?
Продать на сайте нумизматов и коллекционеров - их много в интернете.
Можно в своем городе
подробнее...

Конкретно, какие монеты России в обороте?
Все монеты россии в обороте.
1 коп, 5 коп, 10 коп, 50 коп, 1 руб, 2 руб, 5 руб, 10
подробнее...
 

Ответить на вопрос:

Имя*

E-mail:*

Текст ответа:*
Проверочный код(введите 22):*