Форум: "Сети";
Текущий архив: 2003.10.27;
Скачать: [xml.tar.bz2];
ВнизСообщение по локальной сети Найти похожие ветки
← →
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 вся ветка
Форум: "Сети";
Текущий архив: 2003.10.27;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.011 c