Скачать: CL | DM;

Сообщение по локальной сети   Найти похожие ветки 

← →
Khloo!   (2003-09-02 12:35) [0]

Уважаемые мастера, помогите новечку!!! Необходимо из своей проги по имени компутера или по ЯЙПИ послать сообщенние. Если можно подбросьте код! Большое спасибо!!!

---

← →
Рамиль ©   (2003-09-02 12:42) [1]


uses ShellAPI;
...
ShellExecute(Self.Handle, "open", "net.exe", "send compname Сообщение", nil, SW_HIDE);


---

← →
Khloo!   (2003-09-02 12:46) [2]

Тоисть я так понял надо запускать net.exe через прогу (Этим оператором)? А сообщениие я могу писать в Edit например?

---

← →
Рамиль ©   (2003-09-02 12:52) [3]


ShellExecute(Self.Handle, "open", "net.exe", "send compname" + Edit1.Text, nil, SW_HIDE);


---

← →
Khloo!   (2003-09-02 13:11) [4]

А как указать имя компа? Во втором Едите например? Спасибо!!!

---

← →
Vladimir   (2003-09-02 13:21) [5]

По 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:27) [6]

У меня проблема: [Error] Unit8.pas(30): Incompatible types: "String" and "PChar" Накинул кнопку и єдит + подключил ShellAPI.

---

← →
Khloo!   (2003-09-02 13:33) [7]

Владимир большое спосиба за этот код!!! А по проще по имени???
Спасибо!!!Один Эдит для имени, др для сообщения? Спасибо!!!

---

← →
Vladimir   (2003-09-02 13:35) [8]

Подключи WinSock.
Попробуй так:
ShellExecute(Self.Handle, "open", "net.exe", Pchar(" send tzi2 " + Edit1.Text), nil, SW_HIDE);

---

← →
Рамиль ©   (2003-09-02 13:45) [9]

Кстати в net send IP тоже можно использовать.

---

← →
Khloo!   (2003-09-02 13:52) [10]

ShellExecute(Self.Handle, "open", "net.exe", Pchar(" send tzi2 " + Edit1.Text), nil, SW_HIDE);
Ошибок нет, но что такое tzi2 и в когда в єдит я чёто ввожу то ничо не происходит? У меня два єдита один имя др сообщ? Спасибо!

---

← →
Khloo!   (2003-09-02 13:56) [11]

Я так понимаю что Еdit1 у меня - сообщение. А Edit2 как использовать для ввода имени компа?

---

← →
Vladimir   (2003-09-02 14:09) [12]

tzi2 - это я случайно вставил имя компа в моей локалке. Сорри.
Edit2 - имя компа;
Edit1 - текст;
ShellExecute(Self.Handle, "open", "net.exe", Pchar(" send " + Edit2.Text + " " + Edit1.Text), nil, SW_HIDE);

---

← →
Khloo!   (2003-09-02 14:18) [13]

Спасибо!!!Спасибо!!!Спасибо!!!Спасибо!!!Спасибо!!!Спасибо!!!Спасибо!!! Спасибо!!!Спасибо!!!Спасибо!!!Спасибо!!!Спасибо!!!Спасибо!!!Спасибо!!! Спасибо!!!Спасибо!!!Спасибо!!!Спасибо!!!Спасибо!!!Спасибо!!!Спасибо!!! Спасибо!!!Спасибо!!!Спасибо!!!
Работает!!!!!!!!!!!!!!!!!!!!!!!!!!:)))))))

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.017 c