| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Сообщение по локальной сети [D6, Win95/98, WinXP]
Khloo! © (2003-09-02 12:35:00)
Уважаемые мастера, помогите новечку!!! Необходимо из своей проги по имени компутера или по ЯЙПИ послать сообщенние. Если можно подбросьте код! Большое спасибо!!!
Khloo! (2003-09-02 14:18:00) [1]
Спасибо!!!Спасибо!!!Спасибо!!!Спасибо!!!Спасибо!!!Спасибо!!!Спасибо!!! Спасибо!!!Спасибо!!!Спасибо!!!Спасибо!!!Спасибо!!!Спасибо!!!Спасибо!!! Спасибо!!!Спасибо!!!Спасибо!!!Спасибо!!!Спасибо!!!Спасибо!!!Спасибо!!! Спасибо!!!Спасибо!!!Спасибо!!!
Работает!!!!!!!!!!!!!!!!!!!!!!!!!!:)))))))
Vladimir (2003-09-02 14:09:00) [2]
tzi2 - это я случайно вставил имя компа в моей локалке. Сорри.
Edit2 - имя компа;
Edit1 - текст;
ShellExecute(Self.Handle, "open", "net.exe", Pchar(" send " + Edit2.Text + " " + Edit1.Text), nil, SW_HIDE);
Khloo! (2003-09-02 13:56:00) [3]
Я так понимаю что Еdit1 у меня - сообщение. А Edit2 как использовать для ввода имени компа?
Khloo! (2003-09-02 13:52:00) [4]
ShellExecute(Self.Handle, "open", "net.exe", Pchar(" send tzi2 " + Edit1.Text), nil, SW_HIDE);
Ошибок нет, но что такое tzi2 и в когда в єдит я чёто ввожу то ничо не происходит? У меня два єдита один имя др сообщ? Спасибо!
Рамиль (2003-09-02 13:45:00) [5]
Кстати в net send IP тоже можно использовать.
Vladimir (2003-09-02 13:35:00) [6]
Подключи WinSock.
Попробуй так:
ShellExecute(Self.Handle, "open", "net.exe", Pchar(" send tzi2 " + Edit1.Text), nil, SW_HIDE);
Khloo! (2003-09-02 13:33:00) [7]
Владимир большое спосиба за этот код!!! А по проще по имени???
Спасибо!!!Один Эдит для имени, др для сообщения? Спасибо!!!
Khloo! (2003-09-02 13:27:00) [8]
У меня проблема: [Error] Unit8.pas(30): Incompatible types: "String" and "PChar" Накинул кнопку и єдит + подключил ShellAPI.
Vladimir (2003-09-02 13:21:00) [9]
По IP Адресу :
function IPAddrToName(IPAddr : string): string;
var
SockAddrIn: TSockAddrIn;
HostEnt: PHostEnt;
WSAData: TWSAData;
begin
WSAStartup($101, WSAData);
SockAddrIn.sin_addr.s_addr:= inet_addr(PChar(IPAddr));
HostEnt:= gethostbyaddr(@SockAddrIn.sin_addr.S_addr, 4, AF_INET);
if HostEnt <> nil then
result := StrPas(Hostent^.h_name)
else
result:="";
end;
Khloo! (2003-09-02 13:11:00) [10]
А как указать имя компа? Во втором Едите например? Спасибо!!!
Рамиль (2003-09-02 12:52:00) [11]
ShellExecute(Self.Handle, "open", "net.exe", "send compname" + Edit1.Text, nil, SW_HIDE);
Khloo! (2003-09-02 12:46:00) [12]
Тоисть я так понял надо запускать net.exe через прогу (Этим оператором)? А сообщениие я могу писать в Edit например?
Рамиль (2003-09-02 12:42:00) [13]
uses ShellAPI;
...
ShellExecute(Self.Handle, "open", "net.exe", "send compname Сообщение", nil, SW_HIDE);
| |
