Цитата:
|
Сообщение от lmikle
Не понятно, что тебе надо. Написать эту функцию или вызвать ее.
Если вызывать, то, видимо, что-то типа такого:
Код:
1 2 3 4 5 6 7 8 9 10 11 12 | var
PI : TPosInfo;
begin
PI.Open := 0;
GetMem(PI.SerNo,12+1);
If GetCfgData(PI) = 0
Then Result := StrPas(PI.SerNo)
Else Raise Exception.Create('Error');
FreeMem(PI.SerNo,12+1);
|
|
Интересовало будет ли правильным описывать все вот так.
А так же как далее работать с SerNo. Я так понял через StrPas
И как реализовать min размер 12+1 байт. Размер может быть и больше 12+1.
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | TYPE
TPosInfo = record
Open: Byte;
SerNo: PChar;
end;
GetCfgData : function(var Info: TPosInfo): Byte; stdcall;
...
Var
ConfigData: TPosInfo;
...
begin
GetMem ...
Answer:= GetCfgData(ConfigData);
FreeMem ...
...
end.
|
04.10.2013, 16:48
Древовидный вид