t04, вот процедура выводит все ip адреса:
Код:
procedure TForm1.Button1Click(Sender: TObject);
type
InAddr = Array[0..10] of PInAddr;
TInAddr = ^InAddr;
var
Host: PHostEnt;
pPtr: TInAddr;
Buffer: Array[0..63] of char;
i: Integer;
Socket: TWSAData;
begin
ListBox1.Clear;
WSAStartup( $101, Socket );
GetHostName( Buffer, SizeOf( Buffer ) );
Host := GetHostByName( buffer );
if Host = nil then Exit;
pPtr := TInAddr( Host^.h_addr_list );
i := 0;
while pPtr^[i] <> nil do
begin
ListBox1.Items.Add( inet_ntoa( pPtr^[i]^ ) );
Inc( i );
end;
WSACleanup;
end;
Соединение не по Ip (потому, что у многих он не явный), допустим через какой-либо сайт на бесплатном хостинге
Это, что что то из области фантастики? А сайт не имеет своего ip адреса?
Кто может сделать пример игры: "Крестики-нолики" через интернет? (я хочу более сложную игрушку сделать, но мне нужен пример для работы с данными через интернет)
Мне больше всего понравилось тут то, что ты нам предлагаеш написать эту программу, не затратив ни каких своих усилий!!!
Начинай писать сам, а потом выкладывай свой кодсюда, а мы уже в меру своих сил и возможностей тебе постараемся ответить.
А для начала иди почитай книжки, авось в какойнибудь найдеш пример такой игры!!!
AHTOLLlKA А, что тебе мешает подставить в post запрос, в тот код, который я тебе дал, то что тебе нужно?