VPF::Обмен сообщениями между приложениями

Dimannn

Дата 11.2.2006, 18:54 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 318
Регистрация: 14.4.2005
Где: Владимир

Репутация: нет
Всего: 1

Помогите реализовать. Я разобраться не смог.
Есть две проги. Одну запускают, она весит пока к пайпу не подконнектятся, читает строку, калькулирует, пишет строку, закрывает пайп.

Вторая коннектется, пишет строку, читает строку, закрывает пайп.
smile

--------------------

Хотите быстро и без проблем опубликовать вашу программу в сети за 5 минут?
Тогда потратьте пару минут чтобы посмотреть, что предлагает OpenProject.org.ru

Snowy

Дата 11.2.2006, 19:53 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 30
Всего: 484

А в чем проблема-то?

Dimannn

Дата 11.2.2006, 21:43 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 318
Регистрация: 14.4.2005
Где: Владимир

Репутация: нет
Всего: 1

Вот сервер:

Код


Var buf: Pointer;
      ged: DWORD;
begin
pipe:=CreateNamedPipe('\\.\pipe\DSKPipe',PIPE_ACCESS_DUPLEX,PIPE_TYPE_BYTE,
                PIPE_UNLIMITED_INSTANCES, 0, 0, 1000, nil);
Win32Check( pipe <> INVALID_HANDLE_VALUE);
ConnectNamedPipe(pipe,nil);

GetMem(buf,254);
Win32Check( ReadFile(pipe,buf,254,ged,nil));
ShowMessage(IntToStr(ged));
//ShowMessage(buf);
FreeMemory(buf);

Вот клиент:

Код


Var pipe: THandle;
    Str: String;
    writ, tow: Cardinal;
    Buf: PAnsiChar;
begin
pipe:=CreateFile('\\.\pipe\DSKPipe',PIPE_ACCESS_DUPLEX, 0, nil, OPEN_EXISTING, 0, 0);
Win32Check(pipe <> INVALID_HANDLE_VALUE);


Buf:=GetMemory(254);
Str:='Check "dsk.dll"'+#0;
CopyMemory(Buf,@Str,Length(Str)+1);
tow:=Length(Str)+1;
//Buf:=PChar(Str);
Win32Check(WriteFile(pipe,buf,tow,writ,nil));

CloseHandle(pipe);

В результате серврер получает искажённое сообщение (типа С#щ^|)(хотя размер читает правильный)
Помогите исправить ошибку.

--------------------

Snowy

Дата 13.2.2006, 09:44 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 30
Всего: 484

CopyMemory(Buf,@Str[1],Length(Str)+1);

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »