Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.02.25;
Скачать: CL | DM;

Вниз

Эмуляция net send   Найти похожие ветки 

 
Borealis   (2004-02-12 15:24) [0]

При отправки сообщения, если длина сообщения больше 128 символов, оно урезается до 128 символов. Хотя net send в винде отправляет значительно больше.
Помогите, кто знает.


procedure TForm1.Button1Click(Sender: TObject);
var
s,Addr: String;
H: THandle;
B2: Cardinal;
begin
s:="от кого "#0"кому"#0"сообщение"#0;
Addr := "\\ivc8001\MAILSLOT\MESSNGR";
//ivc8001 - имя компьютера сетки tcp/ip
H := CreateFile(PChar(Addr),
GENERIC_WRITE,
FILE_SHARE_READ,
nil,
OPEN_EXISTING,
FILE_ATTRIBUTE_NORMAL,
0);
if H = INVALID_HANDLE_VALUE then begin
Application.MessageBox("Error", nil, mb_OK);
end
else
begin
CharToOemBuff(@(s[1]),@(s[1]), length(s));
WriteFile(H, s[1], length(s), B2, nil);
CloseHandle(H);
end;

end;


 
clickmaker ©   (2004-02-12 15:25) [1]

NetMessageBufferSend


 
Borealis   (2004-02-12 16:11) [2]

Огромное Спасибо. Заработало! :)))
Я даже нашёл эту функцию в "оболочке":
http://delphibase.endimus.ru/?action=viewfunc&topic=netlan&id=10417



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

Текущий архив: 2004.02.25;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.022 c
1-79899
Qwer
2004-02-10 09:30
2004.02.25
Совместимость


3-79680
Miwa
2004-01-29 03:53
2004.02.25
С varchar-ом не могу подружиться...


6-80054
samalex
2003-12-18 14:19
2004.02.25
Про Socket


4-80352
Ivan K.
2003-12-18 07:43
2004.02.25
Как получить названия окон?


1-79931
Александр
2004-02-09 14:13
2004.02.25
ActionMainMenuBar - WindowMenu