Массивы

[Баламут]

В общем проблема такого характера... По клику на кнопке вызывается некоторая функция WinAPI, которая помимо всего прочего возвращает указатель на массив байт. Этот массив мне необходимо интерпретировать как массив структур заданного типа. Для этого я подготавливаю такой массив (динамический) и с помощью Move копирую туда возвращенные данные. Данные копируются и читаются далее абсолютно нормально. Проблема возникает при выходе из обработчика клика кнопки, вылетает Access violaton. Не могу понять, почему? Или может есть другой способ решить траблу?

[Dark_Elf]

Покажи процедуру обработки.

[BOBAH13]

Скорей всего неверно указан размер блока данных при перемещении в памяти Вы наверняка затераите другие данные и при выходе получаете такую проблему. Да конечно есть выход немного другой опеределить допустим Вашу структуру на нее указатель то пусть массив байт b: array[0..N] of BYTE; структура TStruct = packed record... PStruct = ^TStruct; так вот попробуйте типа такого PStruct := @b; а потом обращаться с PStruct^.поле

[Баламут]

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

Да конечно есть выход немного другой опеределить допустим Вашу структуру на нее указатель то пусть массив байт b: array[0..N] of BYTE; структура TStruct = packed record... PStruct = ^TStruct; так вот попробуйте типа такого PStruct := @b; а потом обращаться с PStruct^.поле

Это с переменной так получается. С массивом что-то не проходит.

[Баламут]

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

Покажи процедуру обработки.

Слишком уже разрослась. Да и не в ней дело. Проблема в строке Move(...

[BOBAH13]

если массив вида b: array of BYTE; то можно PStruct := b; ( без оператора @ ). Просто мне кажется в данном случае нет смысла копировать. Точней Вы не могли бы все дать ?! Move - процедура работает идеально. Вы гдет ошибаитесь, но без представления хотя куска где Move и ее переменных врятли кто Вам поможет.

[Баламут]

Ну если хотите...

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,jwaWinSvc, jwaWinNT, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
     lpBuffer: PByte;
     BufSize: DWORD;
     BytesNeeded: DWORD;
     hService: THandle;
     PFailServices: TSERVICEFAILUREACTIONS;
     sc: array of TSCACTION;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
QueryServiceConfig2(hService,SERVICE_CONFIG_FAILURE_ACTIONS,
lpBuffer,BufSize, BytesNeeded);

BufSize := BytesNeeded;
GetMem(lpBuffer, BytesNeeded);
QueryServiceConfig2(hService,SERVICE_CONFIG_FAILURE_ACTIONS,
lpBuffer,BufSize, BytesNeeded);
Move(lpBuffer^, PFailServices,BufSize);

SetLength(sc, pFailServices.cActions* SizeOf(TscAction));
Move(PFailServices.lpsaActions^,sc,SizeOf(TscAction)*PFailServices.cActions);
end;

end.

Сами понимаете, что описание всех структур и т.д. тянет на книгу... Компилировать этот код бессмысленно без контекста

[BOBAH13]

Я освобождения не вижу )) freeMem(lpBuffer); Потом перед Move(lpBuffer^, PFailServices,BufSize); я бы посоветовал сравнить BufSize и BytesNeeded ( если конечно QueryServiceConfig2 чтот меняет, я незнаю что это даже ) И в какой из Move проблема ? А хотя меня очень заинтриговали две последнии строки... вот в них может и быть проблема при таком способе присваивания. Т.к. sc - массив и Вы его устанавливаете с помощью SetLength - а не через GetMem, а после используете Move. Мне кажется вся проблема в двух последних строках.

[Баламут]

Вопрос с присваиванием и освобождением опустим, т.к. здесь лишь обрывки из реального кода. Все это есть. Но все-таки мне интересно, в чем разница между GetMem и SetLength в данном случае?

[BOBAH13]

Я точно сказать не могу. Но по наблюдениям после SetLength - delphi самостоятельно освобождает ресурсы, а вот после GetMem - совсем иная ситуация, т.е. приходится вызывать FreeMem. Так что возможна ситуация например ?! Откуда Length знает длинну данных выделенную с помощью SetLength - явно данная процедура выделяет кусок для хранения вспомогательных данных, а вот GetMem - ему сколько сказал выделить он и выделет, так что возможно именно из-за тех вспомогательных данных вся проблема.