Форум на Исходниках.RU

LanChat

Diamond — Thu, 22 Jan 2004 08:43:42 +0000

Diamond: Ну во-первых клиенты могут посылать в начале сообщения заголовок где они указывают кто они, но это масло масленное т.к. в заголовке IP пакета и так содержиться нужна инфа. Если клиент присоеденился то в событие сервера указывается параметр Socket так вот если ты напишешь Socket.SendText();то отправишь сообщение тому кто только что присоединился. Может отлавливать события OnClientConncet и OnAccept. Вообще у меня такой проблемы не возникало т.к. если посмотреть инфу Server.Socket.RemoteHost, то увидишь информацию о том клиенте который последним совершил обращение к серверу.

LanChat

Invader — Wed, 21 Jan 2004 07:05:09 +0000

Invader: Diamond,
меня другое волнует...не знаю как сделать так чтобы сервер знал номер клиента...допустим почти одновременно присоединились несколько клиентов...каждому надо разослать сообщение но незнаю как узнать номера соединения для определенного клиента

LanChat

Diamond — Wed, 21 Jan 2004 05:01:30 +0000

Diamond:

Цитата

сервер получает сообщение от клиента, запоминает его номер, а потом выдает ответ на этот же номер

Ну и что? Или клиент своих сообений не должен видеть? Заодно и проверяешь дошло сообщение до сервера или нет. Траффик конечно забиваеться, но если это не критично, то можно сделать и так.

LanChat

Invader — Tue, 20 Jan 2004 07:34:57 +0000

Invader: ZEE,

Цитата

ServerSocket1.Socket.Connections[<номер соединения>]

я так и делаю......ой а че это я тогда тему поднял :huh:
то есть сервер получает сообщение от клиента, запоминает его номер, а потом выдает ответ на этот же номер.....так чтоли?!
ну я что-то торможу в последнее время...все...все...надо ночью спать :D

LanChat

ZEE — Tue, 20 Jan 2004 07:26:35 +0000

ZEE:

Цитата

Diamond, 20.01.04, 02:15
Хотя сам не знаю как с его помощь послать сообщение WinPopup'у

через \MAILSLOT\MESSNGR (уже кажись писАл)

Цитата

Diamond, 20.01.04, 02:15
и в инете по IP он тоже вроде не пашет

да не пашет - это локально-сетевая фишка...

LanChat

Diamond — Mon, 19 Jan 2004 23:15:19 +0000

Diamond:

Цитата

люди а как релизовать массовую расылку через Клиент Сокет если на других машинах уже открыт Сервер Сокет?

Я делал так: Один сервер - все остальные клиенты. Все клиенты шлют серверу, сервер рассылает всем.
Потом я от этой схемы отказался ибо глюкаво и медленно. Сейчас юзаю mailslot. Вроде удобно.
Хотя сам не знаю как с его помощь послать сообщение WinPopup'у да и в инете по IP он тоже вроде не пашет.

LanChat

KoDi — Mon, 19 Jan 2004 13:53:16 +0000

KoDi: люди а как релизовать массовую расылку через Клиент Сокет если на других машинах уже открыт Сервер Сокет?

LanChat

ZEE — Mon, 19 Jan 2004 13:46:20 +0000

ZEE:

Цитата

Invader, 19.01.04, 16:31
пишу что-то вроде чата, но не хочется забивать трафик.....при посылке сообщения с сервера он посылается на все соединения...а хотелось бы чтобы посылалось именно выбранному адресату.....как это лучше сделать

что ж это за чат такой который всем отправляет? надож отсылать на конктерное соединение (ServerSocket1.Socket.Connections[<номер соединения>]) это если через сокеты - хотя я наверно делал бы через слоты...

LanChat

Invader — Mon, 19 Jan 2004 13:31:31 +0000

Invader: А у меня другой вопрос:
пишу что-то вроде чата, но не хочется забивать трафик.....при посылке сообщения с сервера он посылается на все соединения...а хотелось бы чтобы посылалось именно выбранному адресату.....как это лучше сделать....привязка к IP или может имя компьютера...и как это реализовать

LanChat

ZEE — Tue, 30 Dec 2003 09:01:06 +0000

ZEE: на счет определения своего IP
ниже приведу две ф-ции - если их вызвать так
result:=GetIPByHostName(GetHostNameByIP(''))
то в результат выдаст как раз свой IP

function GetHostNameByIP(IP:PChar):string;

var wVersionRequested : WORD;

wsaData : TWSAData;

Addr: LongWord;

p: PHostEnt;

begin

result:='?';

wVersionRequested := MAKEWORD(1, 1);

WSAStartup(wVersionRequested, wsaData);

Addr:=inet_addr(IP);

p:=GetHostByAddr(@Addr,128,AF_INET);

WSACleanup;

if p<>nil then result:=p^.h_Name;

end;

function GetIPByHostName(const dn:string):string;

type TaPInAddr = array[0..250] of PInAddr;

PaPInAddr = ^TaPInAddr;

var r: PHostEnt;

wsaData: TWSAData;

pptr: PaPInAddr;

i: integer;

s: string;

begin

WSAStartup(01, wsaData);

r:=gethostbyname(PChar(dn));

if r=nil then

begin

result:='?';

exit;

end;

pptr:=PaPInAddr(r^.h_addr_list);

i:=0;

while pptr^[i]<>nil do

begin

s:=inet_ntoa(pptr^[0]^);

inc(i);

end;

WSACleanup;

result:=s;

end;

зы: ф-ции писались когда-то давно - если покажутся слегка корявые - то извините...

Добавлено в 30.12.03, 09:01:
млин, чуть не забыл uses WinSock;

LanChat

Diamond — Tue, 30 Dec 2003 08:13:36 +0000

Diamond: Вот что меня интересует: Mailslot - альтернатива winpopup или он ее и использует?

LanChat

n0wheremany — Tue, 30 Dec 2003 07:46:38 +0000

n0wheremany:

Цитата

ZEE от 29.12.03, 13:17
вот че-то похожее есть
http://eef.ispu.ru/sitestud/sav/uddf/pages...rk.htm#network4
тока не стринг получается, а лонгинт...

Использовал пример! Сети нет а выдал другой адресс (не 127.0.0.1) да и ещё без точек, а раставлять самим невозможно тк строку вида 164001002003 не выдеёт! Это неудобно! Есть ли ещё какой-ни-дь пример

Да и ещё

Цитата

Да и ещё как отправить файл (или папку) по локалке с програссом копирования!

Всех с новым годом ;) :mellow: ;) ;) ;)

LanChat

ZEE — Mon, 29 Dec 2003 13:17:47 +0000

ZEE: вот че-то похожее есть
http://eef.ispu.ru/sitestud/sav/uddf/pages...rk.htm#network4
тока не стринг получается, а лонгинт...

LanChat

n0wheremany — Mon, 29 Dec 2003 11:56:54 +0000

n0wheremany:

Цитата

Diamond от 28.12.03, 08:58
В GlobusLib в общем ничего сложного, но я ждал большего... У меня такой вопрос(ы) : Это через эту службу работает Winpopup ? А то я как-то никогда не видел чтоб один был сервером а второй клиентом, или у всех оба запущены? Если так, то какой смысл использовать GlobusLib, если можно обойтись API, Client(Server)Socket'ами. А вообще я прогу видел у друга в общаге, даже не одну, которая рассылает сообщения как Winpopup и получает вроде как единый стандарт обмена сообщениями.

Я разобрался полность в GlobusLib! Охрененная вещь! Очень простая!

Работа компонента MailslotTerminal >
> Создаётся лиия передачи данных

Он (компонент) читает из этой линии массаги, и отправляетт"

/// Изменены названия, чтобы было понятно

Здесь нет ни клиента ни сервера. Программа работает как клиент, а сервером выступает та самая линия!

// Эсли что нетак - обоснуйте // ^)

Такой вопросик
> Как узнать свой IP адресс в локальной сети
// Мне нужна проседура типа

procedure GetIpAdress:string

и никокая другая типа введи имя домена и получишь Ипок!

// Скоро появится релизная версия чата

Добавлено в 29.12.03, 11:58:
Да и ещё как отправить файл (или папку) по локалке с програссом копирования!

LanChat

ZEE — Mon, 29 Dec 2003 07:45:19 +0000

ZEE: >Diamond - прочитай все-таки ZEE Сообщ. #14 от 25.12.03, 10:43 - может станет яснее...

LanChat

Diamond — Sun, 28 Dec 2003 08:58:17 +0000

Diamond: в GlobusLib в общем ничего сложного, но я ждал большего... У меня такой вопрос(ы) : Это через эту службу работает Winpopup ? А то я как-то никогда не видел чтоб один был сервером а второй клиентом, или у всех оба запущены? Если так, то какой смысл использовать GlobusLib, если можно обойтись API, Client(Server)Socket'ами. А вообще я прогу видел у друга в общаге, даже не одну, которая рассылает сообщения как Winpopup и получает вроде как единый стандарт обмена сообщениями.

LanChat

n0wheremany — Thu, 25 Dec 2003 20:05:43 +0000

n0wheremany: Скачал я GlobusLib! И всё равно неразобрался чо почём!
Может кто пожуёт мне шуть-шуть?

LanChat

ZEE — Thu, 25 Dec 2003 07:43:08 +0000

ZEE:

Цитата

n0wheremany, 24.12.03, 21:19
А насчёт первого вороса мыслей нет?

имхо лучше делать на основе MAILSLOT - это будет аналог WinPopup'а или команды net send
плюсы тут как раз то что не нужна связка клиент - сервер
инфу можна нарыть тут
http://firststeps.narod.ru/vc/winapi/154.html
http://delphiworld.narod.ru/base/net_data_...l_channels.html

LanChat

n0wheremany — Wed, 24 Dec 2003 19:19:38 +0000

n0wheremany: А насчёт первого вороса мыслей нет?

LanChat

Diamond — Mon, 22 Dec 2003 22:59:47 +0000

Diamond: 2 POD в инет-факе может и нету, а вот в том хоторый DelphistFAQ.chm есть

LanChat

P.O.D — Mon, 22 Dec 2003 19:50:30 +0000

P.O.D:

Цитата

n0wheremany, 22.12.03, 18:12
Как узнать IP Всех компов подключенных к локалке?

var
Computer: array [1..500] of string[25];
ComputerCount: Integer;

procedure FindAllComputers(Workgroup: string);
var
EnumHandle: THandle;
WorkgroupRS: TNetResource;
Buf: array [1..500] of TNetResource;
BufSize: Integer;
Entries: Integer;
Result: Integer;
begin
ComputerCount := 0;
Workgroup := Workgroup + #0;
FillChar(WorkgroupRS, SizeOf(WorkgroupRS) , 0);
with WorkgroupRS do
begin
dwScope := 2;
dwType := 3;
dwDisplayType := 1;
dwUsage := 2;
lpRemoteName := @Workgroup[1];
end;

WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_ANY, 0, @WorkgroupRS, EnumHandle);

repeat
Entries := 1;
BufSize := SizeOf(Buf);

Result := WNetEnumResource(EnumHandle, Entries, @Buf, BufSize);
if (Result = NO_ERROR) and (Entries = 1) then
begin
Inc( ComputerCount );
Computer[ ComputerCount ] := StrPas(Buf[1].lpRemoteName);
end;
until
(Entries <> 1) or (Result <> NO_ERROR);

WNetCloseEnum( EnumHandle );
end;

способ 2

unit FindComp;

interface

uses
Windows, Classes;

function FindComputers: DWORD;

var
Computers: TStringList;

implementation

uses
SysUtils;

const
MaxEntries = 250;

function FindComputers: DWORD;

var
EnumWorkGroupHandle, EnumComputerHandle: THandle;
EnumError: DWORD;
Network: TNetResource;
WorkGroupEntries, ComputerEntries: DWORD;
EnumWorkGroupBuffer, EnumComputerBuffer: array[1..MaxEntries] of TNetResource;
EnumBufferLength: DWORD;
I, J: DWORD;

begin

Computers.Clear;

FillChar(Network, SizeOf(Network), 0);
with Network do
begin
dwScope := RESOURCE_GLOBALNET;
dwType := RESOURCETYPE_ANY;
dwUsage := RESOURCEUSAGE_CONTAINER;
end;

EnumError := WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_ANY, 0, @Network, EnumWorkGroupHandle);

if EnumError = NO_ERROR then
begin
WorkGroupEntries := MaxEntries;
EnumBufferLength := SizeOf(EnumWorkGroupBuffer);
EnumError := WNetEnumResource(EnumWorkGroupHandle, WorkGroupEntries, @EnumWorkGroupBuffer, EnumBufferLength);

if EnumError = NO_ERROR then
begin
for I := 1 to WorkGroupEntries do
begin
EnumError := WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_ANY, 0, @EnumWorkGroupBuffer[I], EnumComputerHandle);
if EnumError = NO_ERROR then
begin
ComputerEntries := MaxEntries;
EnumBufferLength := SizeOf(EnumComputerBuffer);
EnumError := WNetEnumResource(EnumComputerHandle, ComputerEntries, @EnumComputerBuffer, EnumBufferLength);
if EnumError = NO_ERROR then
for J := 1 to ComputerEntries do
Computers.Add(Copy(EnumComputerBuffer[J].lpRemoteName, 3, Length(EnumComputerBuffer[J].lpRemoteName) - 2));
WNetCloseEnum(EnumComputerHandle);
end;
end;
end;
WNetCloseEnum(EnumWorkGroupHandle);
end;

if EnumError = ERROR_NO_MORE_ITEMS then
EnumError := NO_ERROR;
Result := EnumError;

end;

initialization

Computers := TStringList.Create;

finalization

Computers.Free;

end.

Song хотел послать в фак, но там вроде нету

LanChat

n0wheremany — Mon, 22 Dec 2003 18:12:00 +0000

n0wheremany: Сделал я чат на основе TCP !
Лично мне не очень понравился!"

Возможно ли сделать чат без SErver and Client?
Как узнать IP Всех компов подключенных к локалке?

plz...

LanChat

T0rch — Mon, 22 Dec 2003 12:37:03 +0000

T0rch: Вот глянь http://www.delphimaster.ru/articles/sockadv/index.html

LanChat

Testudo — Mon, 22 Dec 2003 12:02:04 +0000

Testudo: Я же сказал. Читай MSDN. Есть сетевая версия...

LanChat

n0wheremany — Mon, 22 Dec 2003 08:53:47 +0000

n0wheremany: Проще, проще, дайте хоть пример ...

В компонентах нашёл
> Indy >
>> idTCPSrver (на этих компонентах построен исходник в demos)
>> idTCPClient

>> idUdpServer
>> idUdpClient

Можно краткую инфу по этим компонентам ..
Какой лючше использовать (TCP or Udp)

LanChat

Testudo — Sun, 21 Dec 2003 10:38:13 +0000

Testudo: Проще некуда. (но я юзаю апишные ф-ции напрямую)
Есть еще множетсво примеров в MSDN от шестой студии.

LanChat

Diamond — Sat, 20 Dec 2003 23:23:22 +0000

Diamond: Что может быть проще?
я юзаю только TClient(Server)Socket, все отлично.

LanChat

P.O.D — Sat, 20 Dec 2003 21:07:28 +0000

P.O.D: ну так вперед, если лень поищи в нете.

LanChat

n0wheremany — Sat, 20 Dec 2003 21:01:10 +0000

n0wheremany: Этот пример мне не очень нравится херота какаято! Лючше если бы всё это объеденить ещё!!

LanChat

P.O.D — Sat, 20 Dec 2003 20:55:15 +0000

P.O.D: Найдётся
Delphi\Demos\Internet\Chat

LanChat

n0wheremany)) — Sat, 20 Dec 2003 20:42:13 +0000

n0wheremany)): Как сделать чат?

- Какие компоненты лючше использовать
- ...

Может исходник найджется 7

PLZ