Grande
Full Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Уважаемые знатоки, имеется такой код: Вызывающая программа Код: type TParams = record Answer1, Answer2, Answer3, Answer4: PChar; IniString1, IniString2, IniString3, IniString4: PChar; Frame, IP_Address, BSCPort, MO, FaultNo: PChar; end; ... var Parameters: TParams; begin Answer := GetCode(@Parameters); ... | DLL: Код: type TParams = record Answer1, Answer2, Answer3, Answer4: PChar; IniString1, IniString2, IniString3, IniString4: PChar; Frame, IP_Address, BSCPort, MO, FaultNo: PChar; end; type TCodes = record Codes, Units: PChar; end; type PCodes = ^TCodes; ... function GetCode(Parameters: TParams): PCodes; begin ShowMessage(Parameters.Answer1); | Так вот, ShowMessage показывает погоду в Антарктиде. Подскажите, пожалуйста, правильное решение - как передать запись PChar'ов в DLL и обратно. Спасибо. | Всего записей: 588 | Зарегистр. 18-09-2003 | Отправлено: 09:53 20-03-2012 | Исправлено: Grande, 10:19 20-03-2012 |
|