Так есть DLL, просто вызывайте функции из Delphi. Функции описаны в спецификации протокола WAKE. («Телесистемы»: Конференция «Микроконтроллеры и их применение»)

[an error occurred while processing this directive] Так есть DLL, просто вызывайте функции из Delphi. Функции описаны в спецификации протокола WAKE.

(«Телесистемы»: Конференция «Микроконтроллеры и их применение»)

Отправлено Леонид Иванович 06 ноября 2005 г. 13:09
В ответ на: Народ может кто протокол WAKE под дельфи реализовывал отправлено <font color=gray>TamTam</font> 06 ноября 2005 г. 03:39

На Delphi заголовок будет примерно таким (не сильно ругайте за возможные ошибки, на Delphi не работаю, набрасал от руки и не проверял):


//---------------- WSP32.DLL functions ------------------------function AccessCOM(P:PChar):boolean; //Проверка доступности порта
 stdcall; external 'wsp32.dll';
function OpenCOM(P:PChar;baud:DWORD):boolean; //Открыть порт
 stdcall; external 'wsp32.dll';
function CloseCOM:boolean; //Закрыть порт
 stdcall; external 'wsp32.dll';
function SetModLns(F:DWORD):boolean; //Управление модемными линиями
 stdcall; external 'wsp32.dll';
function GetModLns(var lpD:DWORD):boolean; //Чтение модемных линий
 stdcall; external 'wsp32.dll';
function PurgeCOM:boolean; //Очистка буферов
 stdcall; external 'wsp32.dll';
function FlushCOM:boolean; //Очистка буферов с ожиданием конца передачи
 stdcall; external 'wsp32.dll';
function RxFrame(To:DWORD; var ADD,CMD,N:Byte; //Прием пакета
                   var Data):boolean;
 stdcall; external 'wsp32.dll';
function TxDataCOM(var ADDR,CMD,N:Byte; //Передача пакета
                   const Data):boolean;
 stdcall; external 'wsp32.dll';

Составить ответ ||| Конференция ||| Архив

Ответы

Вот кстати вопрос а что делать с "TO" в процедуре RXFrame ведъ в дельфи это оператор — TamTam (06.11.2005 17:21 80.82.38.140, пустое)
- Ответ: — Леонид Иванович (07.11.2005 00:58 213.184.238.51, 75 байт)
  - да я уже поставил борландовский билдер, изменил имя, за помощь сенькс, уже почти перевел библу по дельфи осталось RXFrame и TXFrame — TamTam (07.11.2005 02:01 80.82.38.8, пустое)
    - Если не жалко, можете потом прислать, выложу на сайт (естественно, с указанием авторства). — Леонид Иванович (07.11.2005 12:02 213.184.238.50, пустое)
Да я же вроде написал что нуна именно функции исправленные под Delphi вызывать то не проблема, просто заказчик сурцы хотитт всего !!! в том числе и библы — TamTam (06.11.2005 17:12 80.82.38.140, пустое)
- А что, сурцы библы на С не проканают? Они в свободном скаче. — Леонид Иванович (07.11.2005 00:56 213.184.238.51, пустое)
Поправка: — Леонид Иванович (06.11.2005 13:13 213.184.238.50, 44 байт)

Перейти к списку ответов ||| Конференция ||| Архив ||| Главная страница ||| Содержание

E-mail: info@telesys.ru

Ответы

Отправка ответа