-
Здравствуйте! Я не особо силён в Delphi. Возникла задача написать плагин для программы Venta fax. Плагин представляет собой DLL, функция из которой будет вызываться по окончании каждой сессии. Вот вид функции function AfterSession(R : TRec32C): LongInt; stdcall; export;
Описание структуры TRec32C. -----------------------------------
TDaTi = record Year : word; Month : word; Day : word; Hour : word; Min : word; Sec : word; end;
PTRec32C = ^TRec32C; TRec32C = Record Phone : array[0..63] of char; Company : array[0..63] of char; ToAbonent : array[0..73] of char; FileName : array[0..255] of char; DocName : array[0..73] of char; Result, Speed, Quality : word; Date : TDaTi; Min, Sec : word; Pages : word; LastPage : word; NBlock : longint; NBadBlock: longint; Attr : word; ExtData : array[0..63] of char; CSI : array[0..21] of char; NCF : array[0..63] of char; RecId : longint; AbId : longint; CompName: array[0..31] of char; Reserve : array[0..63] of char; end;
Мне нужно сделать чтобы значения некоторых элементов структуры TRec32C записывались в текстовый файл после каждой сессии. Каким образом мне получить доступ например к TRec32C.phone ? Пожалуйста подскажите написав небольшой пример. С уважением, Сергей.
-
s: string; PRec: PTRec32C;
s:= PRec^.Phone; Writeln(ATextFile, s);//или другой метод записи в файл
|