Работа с Pchar

[Smallboy]

Добрый день!
У меня есть задача. Hанее почти не работал с PChar.
Помогите разобраться. В длл есть функция:

GetCfgData(var Info:TPosInfo): Byte(возвращает код ошибки)

при запуске в коде программы эта функция должна получить данные из длл
в TPosIno.
Где TPosInfo = record
Open: Byte
SerNo: PChar (указатель на буфер серийного номера, min размер 12+1 байт)

Вопрос: рак реализовать работу этой функции. Не совсем понимаю как работать с Pchar. Кто может объяснить как описать это в коде программы. И как далее работать с полем SerNo. В теории это должен быть серийный номер устройства.

[Человек_Борща]

показывайте, как передаете, в функцию, свою переменную.

[Smallboy]

Сообщение от Человек_Борща

показывайте, как передаете, в функцию, свою переменную.

Дело в том, что я пока не знаю как её правильно передавать.

например так:

TYPE
TPosInfo = record
    Open: Byte;
    SerNo: PChar;
end;

GetCfgData  : function(var Info: TPosInfo): Byte; stdcall;
...
Var
   ConfigData: TPosInfo;
...
begin
  Answer:= GetCfgData(ConfigData);
...
end.

[Человек_Борща]

думаю,правильнее так:

nswer:= GetCfgData(@ConfigData);

Не гоже в DLL передавать саму переменную, в 101% случаев передают указатель.

[Smallboy]

Сообщение от Человек_Борща

думаю,правильнее так:

nswer:= GetCfgData(@ConfigData);

Не гоже в DLL передавать саму переменную, в 101% случаев передают указатель.

Это понял. Тогда осталось главное -- как далее в программе работать с полями рекорда, а именно с SerNo.

нужно получить данные из SerNo или записать их туда(данные которые мы получили из фукнции). Или надо преобразование делать

[Stilet]

а именно с SerNo.

ConfigData.SerNo это строка. Работать с ней как со String.

[Smallboy]

Сообщение от Stilet

ConfigData.SerNo это строка. Работать с ней как со String.

А я думал что с PChar надо работать как с указателем. например вот так:

GetMem(ConfigData.SerNo,12+1);
 Result := StrPas(ConfigData.SerNo) 
а тут уже работать со строкой
  FreeMem(ConfigData.SerNo,12+1);

[Vapaamies]

Сообщение от Человек_Борща

Не гоже в DLL передавать саму переменную, в 101% случаев передают указатель.

За такие советы нужно снижать репутацию, ибо нефиг. А ключевое слово var или const перед параметром, по-твоему, для чего служит? Как раз для того, чтобы компилятор организовал передачу по ссылке, без копирования, что технически и есть указатель.

[Smallboy]

Сообщение от Vapaamies

За такие советы нужно снижать репутацию, ибо нефиг. А ключевое слово var или const перед параметром, по-твоему, для чего служит? Как раз для того, чтобы компилятор организовал передачу по ссылке, без копирования, что технически и есть указатель.

то есть Answer:= GetCfgData(ConfigData); правильно?

[Vapaamies]

Сообщение от Smallboy

то есть Answer:= GetCfgData(ConfigData); правильно?

Да, правильно. Плюс, если длина серийного номера заранее не известна и никак не оговорена, в DLL должен быть способ ее получить. Иначе в документации должен быть указан максимальный размер буфера. Это если буфер под серийник должна выделять программа.

Если же серийный номер хранится где-то в DLL и при вызове функции просто возвращается его адрес, достаточно будет прочитать PChar, и всё.