Работа с Pchar

@Smallboy · Регистрация: 16.07.2013

Студворк — интернет-сервис помощи студентам

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

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

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

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

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

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
TYPE
TPosInfo = record
    Open: Byte;
    SerNo: PChar;
end;
 
GetCfgData  : function(var Info: TPosInfo): Byte; stdcall;
...
Var
   ConfigData: TPosInfo;
...
begin
  Answer:= GetCfgData(ConfigData);
...
end.

@cotseec · 04.10.2013, 18:15

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
TYPE
TPosInfo = record
    Open: Byte;
    SerNo: PChar;
end;
 
GetCfgData  : function(var Info: TPosInfo): Byte; stdcall;
...
Var
   ConfigData: TPosInfo;
...
begin
   ConfigData.SerNo := StrAlloc(13);// указатель на буфер серийного номера, min размер 12+1 байт
   Answer:= GetCfgData(ConfigData);
   if Answer <> {код какой-то ошибки} then
     MessageBox(0, ConfigData.SerNo, 'SerNo', 0);
   StrDispose(ConfigData.SerNo);
...
end.

@Smallboy · 09.10.2013, 14:56 **[ТС]**

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

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
TYPE
TPosInfo = record
    Open: Byte;
    SerNo: PChar;
end;
 
GetCfgData  : function(var Info: TPosInfo): Byte; stdcall;
...
Var
   ConfigData: TPosInfo;
...
begin
   ConfigData.SerNo := StrAlloc(13);// указатель на буфер серийного номера, min размер 12+1 байт
   Answer:= GetCfgData(ConfigData);
   if Answer <> {код какой-то ошибки} then
     MessageBox(0, ConfigData.SerNo, 'SerNo', 0);
   StrDispose(ConfigData.SerNo);
...
end.

Спасибо за помощь! Тут все хорошо.
Возник другой вопрос как к примеру через ConfigData правильно передать в функцию данные. Пример.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
TPosInfo = record
    Open: Byte;
    SerNo: PChar;
end;
 
GetCfgData  : function(var Info: TPosInfo): Byte; stdcall;
...
Var
   ConfigData: TPosInfo;
...
begin
   ConfigData.SerNo := StrAlloc(13);// указатель на буфер серийного номера, min размер 12+1 байт
 
   ConfigData.SerNo := 'test'; // вариант 1
   StrPCopy(ConfigData.SerNo,'test'); //вариант 2
   ConfigData.SerNo := PChar('test'); // вариант 3
 
   Answer:= GetCfgData(ConfigData);
   if Answer <> {код какой-то ошибки} then
     MessageBox(0, ConfigData.SerNo, 'SerNo', 0);
   StrDispose(ConfigData.SerNo);

тут указано 3 способа присвоения данных
По идее верный только вариант 2.

Вариант 1 по сути переопределяет указатель на строку "test" и тогда в ConfigData.SerNo := StrAlloc(13) нет никакого смысла так как мы меняем адрес.

Вариант 3 делает тоже самое с приведением типа

Вариант 2 копирует строку по адресу который мы указали

правильно ли я понимаю??
Важно: нужно поместить данные именно по адресу выделенному в ConfigData.SerNo := StrAlloc(13)
может есть еще способы?

09.10.2013, 15:13

Для

Delphi
1
2
ConfigData.SerNo := 'test';
ConfigData.SerNo := PChar('test');

память выделять не требуется. Для 2-го варианта нужно выделить.

@Mawrat · 09.10.2013, 15:34

Добавлю.

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

В длл есть функция:
GetCfgData(var Info:TPosInfo): Byte(возвращает код ошибки)

В отношении этой функции надо узнать, как происходит работа с параметром Info. Если этот параметр служит только для возвращения данных из функции, то память для нуль-терминальной строки, скорее всего, должна выделять вызываемая функция. А освобождать память должна вызывающая программа.
Если параметр Info служит также для передачи данных в функцию, то выделять память должна вызывающая программа. Причём, если функция не заменяет нуль-терминальную строку, а изменяет значение в ней, то вызывающая программа должна разместить нуль-терминальную строку в динамической памяти. Т. е., в этом случае приемлем вот такой способ в задании нуль-терминальной строки:

Delphi
1
2
3
4
5
6
7
8
9
var
  S : String;
...
begin
...
  ConfigData.SerNo := StrAlloc(12 + 1); //+ 1 - так мы учитываем терминальный ноль.
  StrPCopy(ConfigData.SerNo, 'test');
...
end;

А способ с передачей указателя на статические данные уже будет недопустим:

Delphi
1
ConfigData.SerNo := 'test';

Потому что функция не сможет поменять содержимое, расположенное в статической памяти.

В общем, действия зависят от логики работы функции. Надо начать именно с этого - выяснить как функция использует параметр Info.

@Smallboy · 09.10.2013, 15:50 **[ТС]**

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

Добавлю.

В отношении этой функции надо узнать, как происходит работа с параметром Info. Если этот параметр служит только для возвращения данных из функции, то память для нуль-терминальной строки, скорее всего, должна выделять вызываемая функция. А освобождать память должна вызывающая программа.
Если параметр Info служит также для передачи данных в функцию, то выделять память должна вызывающая программа. Причём, если функция не заменяет нуль-терминальную строку, а изменяет значение в ней, то вызывающая программа должна разместить нуль-терминальную строку в динамической памяти. Т. е., в этом случае приемлем вот такой способ в задании нуль-терминальной строки:

Delphi
1
2
3
4
5
6
7
8
9
var
  S : String;
...
begin
...
  ConfigData.SerNo := StrAlloc(12 + 1); //+ 1 - так мы учитываем терминальный ноль.
  StrPCopy(ConfigData.SerNo, 'test');
...
end;

А способ с передачей указателя на статические данные уже будет недопустим:

Delphi
1
ConfigData.SerNo := 'test';

Потому что функция не сможет поменять содержимое, расположенное в статической памяти.

В общем, действия зависят от логики работы функции. Надо начать именно с этого - выяснить как функция использует параметр Info.

Если брать полную картину то работа идет так:

function(var SendInfo: Info1 , var GetInfo: Info2): Byte

данные передаются через SendInfo: Info1
ответ передают назад в программу через GetInfo: Info2

Если с получением данных разобрался(2-й пост).
То с передачей возникли проблемы.
Для каждого поля рекорда указан объем передаваемых данных (например 12+1). Т.е необходимо выделять и освобождать память и в процессе присваивания данных не менять выделенный адрес.

Я так понял этот вариант единственно возможный:

ConfigData.SerNo := StrAlloc(12 + 1); //+ 1 - так мы учитываем терминальный ноль.
StrPCopy(ConfigData.SerNo, 'test');
StrDispose(ConfigData.SerNo);

P.S. и еще как поступать в таком случае. Для разных полей размер данных указан по разному
к примеру:
min размер 12+1
max размер 184
или вообще не указан

как лучше действовать в таких случаях

09.10.2013, 16:03

Кто мешает выделить сразу по максимуму?

@Mawrat · 09.10.2013, 16:29

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

Я так понял этот вариант единственно возможный:
ConfigData.SerNo := StrAlloc(12 + 1); //+ 1 - так мы учитываем терминальный ноль.
StrPCopy(ConfigData.SerNo, 'test');
StrDispose(ConfigData.SerNo);

Да, верно - это для тех данных, которые передаются из вызывающей программы - в функцию.
Что касается тех данных, которые функция передаёт в вызывающую программу (Info2) - там ведь тоже есть нуль-терминальная срока. И память, которая выделена для этой строки, должна освободить вызывающая программа. Вот в этом случае надо решить, какой функцией эту память освободить. Если функция написана на Delphi и если паять для нуль-терминальных строк выделяется в теле функции через вызов StrAlloc(), то освобождать такую память надо через вызов StrDispose().
А если функция писалась, например, на Си или на Delphi и для нуль-терминальной строки память выделялась через AllocMem() или GetMem(), например, то освобождать память надо через вызов FreeMem():

Delphi
1
2
3
Len := StrLen(ConfigData.SerNo) + 1;
FreeMem(ConfigData.SerNo, Len * SizeOf(Char));
ConfigData.SerNo := nil;

Добавлено через 19 минут

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

P.S. и еще как поступать в таком случае. Для разных полей размер данных указан по разному

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

Кто мешает выделить сразу по максимуму?

Согласен с angstrom - для входных параметров задавать наибольшую длину строки.

@Smallboy · 09.10.2013, 16:35 **[ТС]**

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

Да, верно - это для тех данных, которые передаются из вызывающей программы - в функцию.
Что касается тех данных, которые функция передаёт в вызывающую программу (Info2) - там ведь тоже есть нуль-терминальная срока. И память, которая выделена для этой строки, должна освободить вызывающая программа. Вот в этом случае надо решить, какой функцией эту память освободить. Если функция написана на Delphi и если паять для нуль-терминальных строк выделяется в теле функции через вызов StrAlloc(), то освобождать такую память надо через вызов StrDispose().
А если функция писалась, например, на Си или на Delphi и для нуль-терминальной строки память выделялась через AllocMem() или GetMem(), например, то освобождать память надо через вызов FreeMem():

Delphi
1
2
3
Len := StrLen(ConfigData.SerNo) + 1;
FreeMem(ConfigData.SerNo, Len * SizeOf(Char));
ConfigData.SerNo := nil;

Добавлено через 19 минут

Согласен с angstrom - для входных параметров задавать наибольшую длину строки.

память для данных которые функция передает в программу также выделяется в программе.
в функцию передается адрес памяти куда она и записывает данные

@Mawrat · 09.10.2013, 16:35

Или так (входной параметр, передаваемый в функцию):

Delphi
1
2
3
4
5
6
7
//Это какая-то строка, которую надо передать в функцию в виде нуль-терминальной строки.
S := 'XXXXXX';
StrAlloc(ConfigData.SerNo, Length(S) + 1);
StrPCopy(ConfigData.SerNo, PChar(S));
GetCfgData(...);
StrDispose(ConfigData.SerNo);
ConfigData.SerNo := nil;

@Smallboy · 09.10.2013, 16:43 **[ТС]**

Остался последний вопрос
к примеру один из выходных параметров равен ' ' или nill
StrPCopy(ConfigData.SerNo, ' ');

как данное преобразование будет влиять на данные записанные по адресу.
Необходимо чтобы функция понимала их как nill или как ' '

09.10.2013, 16:53

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

равен ' '

Так это пробел или пустые кавычки? Пока написан пробел. Как там работает функция не знаю, но может вернуть NIL или #0.

@Smallboy · 09.10.2013, 17:13 **[ТС]**

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

Так это пробел или пустые кавычки? Пока написан пробел. Как там работает функция не знаю, но может вернуть NIL или #0.

пустые кавычки, в функцию тоже можно передавать nill или пустые кавычки. При их получении lданных параметров функция будет брать значение по умолчанию. Вот поэтому и волнует передадутся ли nil или ''.

@Mawrat · 09.10.2013, 17:18

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

к примеру один из выходных параметров равен ' ' или nill
StrPCopy(ConfigData.SerNo, ' ');

Это, как я понял, входной, а не выходной параметр? Т. е., входной по отношению к функции - мы подготавливаем нуль-терминальную строку, которую намереваемся передать в функцию.

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

к примеру один из выходных параметров равен ' ' или nill
StrPCopy(ConfigData.SerNo, ' ');

Пустую нуль-терминальную строку (это указатель на #0) - правильно обработает.

09.10.2013, 17:24

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

пустые кавычки

Смотри внимательно, пробел написан. Так и в функцию отдашь пробел вместо пустой строки.

@Smallboy · 10.10.2013, 16:32 **[ТС]**

Всем спасибо господа! Все отлично работает!
Правда в ХЕ2 не получилось, ошибки в кодировках какие-то при приеме-передаче данных через PChar. Не смог разобраться в чем дело.
В D7 все отлично работает.

@northener · 10.10.2013, 16:49

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

Правда в ХЕ2 не получилось

В ХЕ2 надо было перед каждым буквосочетанием CHAR вставить ANSI. И перед каждым STRING.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .

angstrom
	09.10.2013, 16:03
	Кто мешает выделить сразу по максимуму?

@Smallboy 0 / 0 / 1 Регистрация: 16.07.2013 Сообщений: 24
	09.10.2013, 16:43 [ТС]
	Остался последний вопрос к примеру один из выходных параметров равен ' ' или nill StrPCopy(ConfigData.SerNo, ' '); как данное преобразование будет влиять на данные записанные по адресу. Необходимо чтобы функция понимала их как nill или как ' ' 0

@Smallboy 0 / 0 / 1 Регистрация: 16.07.2013 Сообщений: 24
	10.10.2013, 16:32 [ТС]
	Всем спасибо господа! Все отлично работает! Правда в ХЕ2 не получилось, ошибки в кодировках какие-то при приеме-передаче данных через PChar. Не смог разобраться в чем дело. В D7 все отлично работает. 0