Конференция "Игры" » Вопрос по динамическим структурам данных [Delphi, Windows]
 
  • Sergey1982 © (10.05.07 17:07) [0]
    Здравствуйте! Я не особо силён в 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 ? Пожалуйста подскажите написав небольшой пример. С уважением, Сергей.
  • MBo © (10.05.07 17:12) [1]
    s: string;
    PRec: PTRec32C;

    s:= PRec^.Phone;
    Writeln(ATextFile, s);//или другой метод записи в файл
 
Конференция "Игры" » Вопрос по динамическим структурам данных [Delphi, Windows]
Есть новые Нет новых   [134428   +39][b:0][p:0]