Главная страница
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.033 c
1-79833
VitGun
2004-02-10 21:12
2004.02.25
Delphi+Access+Word(OLE)+Excel(OLE)


14-80227
_none_
2004-02-04 11:09
2004.02.25
автаматизация управления проектами


14-80135
IIStan
2004-02-02 01:25
2004.02.25
Где можно купить неонувую лампу?


8-80026
Sniper--Max
2003-10-23 06:56
2004.02.25
Как нажать на кнопку под моей формой?


1-79970
Сергей С.
2004-02-11 15:48
2004.02.25
глобальные переменные