Доступ к строке

[Баламут]

В общем я не оригинален... Функция возвращает указатель на массив байт. Разыменовываю его, преобразую к необходимому типу (структура, одно из полей которой является строка PChar). Так вот в этой строке почему-то вижу всякую чушь. При этом числовые данные из этой же структуры читаются нормально. Блин, не могу понять, где я опять ошибся. Исходник и необходимые библиотеки прилагаю. Он небольшой. Интересующая меня строка выглядит так:

Form2.Edit2.Text := PServiceFailureActions(Buf)^.lpComm and;

Помогите, люди добрые...

[BOBAH13]

Вообщем, исходник я не смог нормально открыть ( и не буду )... какой тип у lpCommand ? BufSize равен ли он TServiceFailureActions ? И почему вы используете Buf: Pointer, а не например Buf: PServiceFailureActions ? Разницы нет то ))

[Баламут]

lpCommand: PAnsiChar;

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

И почему вы используете Buf: Pointer, а не например Buf: PServiceFailureActions ? Разницы нет то ))

Функция хочет в качестве параметра указатель на массив байт. Возвращаемый кусок памяти переменной длинны из-за разной длины возвращаемых строк.

[BOBAH13]

А ну тогда возможно, что Параметр lpCommand ServiceFailureActions получает не верный адресс куска выдленного текста, и поэтому Вы наблюдаете "казилябрики" Вообщем Вы говорите массив байт Pointer - я считаю что это вообщет никакой не массив, а число простое

[rpy3uH]

я тоже не смог нормально открыть твой исходник..
Баламут, ты лучше покажи объявление типа TServiceFailureActions и объявление типа массива и кусок проблемного кода.

[Alter]

В архиве нету класса для компонент: RzButton и RzPanel.

[Баламут]

TServiceFailureActions = record
    dwResetPeriod: DWORD;
    lpRebootMsg: LPSTR;
    lpCommand: LPSTR;
    cActions: DWORD;
    lpsaActions: LPSC_ACTION;
  end;

Так эта структура объявлена в jwaWinSvc.

А вот так в MSDN:

typedef struct _SERVICE_FAILURE_ACTIONS {  
DWORD dwResetPeriod;  
LPTSTR lpRebootMsg;  
LPTSTR lpCommand;  DWORD cActions;  
SC_ACTION* lpsaActions;
} SERVICE_FAILURE_ACTIONS,  *LPSERVICE_FAILURE_ACTIONS;

Т.е. тут как бы все нормально. Значения dwResetPeriod и cActions я читаю нормально. И даже значения идущего далее массива lpsaActions тоже нормально читаются.

З.Ы. Исходник перезалил. Теперь так только стандартные компоненты. Да, и компилировал я в BDS2006 если это имеет какое-то значение.

[Баламут]

Тема сползает вниз, а поблема так и не решена... Может все-таки есть идеи? Буду признателен за все.

[rpy3uH]

а может там строки в юникоде?
я посмотрел объявление этой функции QueryServiceConfig2.
function QueryServiceConfig2; external advapi32 name 'QueryServiceConfig2' + AWSuffix;
наврено как раз этот суффикс является буквой W.
Чтобы точно знать что результаты являются обычными строками, то вызывай функцию QueryServiceConfig2A

[Баламут]

Все, решил проблему... Просто нужно было довести до логического конца эксперименты с функциями ...А и ...W. Вызов-то я сделал, а вот результат правильно интерпретировать забыл...

Form2.Edit2.Text := PServiceFailureActionsW(Buf)^.lpCommand;

В одной букве было дело и кривых руках...