Главная страница
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.02 c
1-79894
Vag
2004-02-13 22:10
2004.02.25
Не закрывабшася программа?


8-80028
Lita
2003-10-23 20:22
2004.02.25
Помогите ламеру с графиком


1-79918
Deniscool
2004-02-09 00:54
2004.02.25
Массив записей и...


3-79571
mvg_first
2004-01-19 16:40
2004.02.25
Insert, Update, Delete своими руками


9-79538
Кен
2003-08-08 02:32
2004.02.25
Кто нибудь пробовал создавать миссии для Vice City ?