Форум: "Основная";
Текущий архив: 2004.02.25;
Скачать: [xml.tar.bz2];

Вниз

Эмуляция 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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.031 c