Главная страница
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.019 c
14-80254
asp
2004-02-04 16:07
2004.02.25
Internet на работе


3-79601
Merry
2004-02-02 13:05
2004.02.25
запрос SQL


14-80158
syte_ser78
2004-01-27 17:24
2004.02.25
Новая ОС от микрософта


1-79873
Марат
2004-02-10 12:42
2004.02.25
Текстовый файл из DOS


1-80007
Den_K2004
2004-02-13 10:25
2004.02.25
Как подсунуть свои картинки в TWebBrowser