Отправлено Alexandr 23 сентября 2002 г. 20:19 В ответ на: Да, похоже это самое правильное решение. Спасибо за помощь! (+) отправлено smovch 23 сентября 2002 г. 19:53

Вначале делаеться это:

CidEx := OpenCom(AComName, InSize, OutSize);

Потом где нужно делаеться это:

if Win32Platform <> VER_PLATFORM_WIN32_NT then begin
{Undocumented function returns the base address in edx}
EscapeCommFunction(CidEx, 10);
asm
mov LocalBaseAddress, dx
end;
BaseAddress := LocalBaseAddress;
end;

А вообще вся кухня в файле AwUser.pas пакета AsyncPro

• Ответ: — smovch   (24.09.2002 11:56, 127 байт)