Выделение памяти delphi или динамические массивы

[987Alexe4ik]

Добрый день!

Пробую переписать небольшой фрагмент кода с с++ на delphi7

В сишном коде выделяется память функцией malloc и используется в другой функции

width       =  lwidth*scale;
height      =  lheight*scale;
lr_im       =  (unsigned char*) malloc( sizeof(char)*lwidth*lheight );

Read_image( argv[1], lr_im );

НА дэльфи я создал динамический массив, но возникла ошибка несовместимости типов Incompatible types: 'Byte' and 'dynamic array'

procedure TForm1.Action2Execute(Sender: TObject);
var
  lwidth, width, lheight, height, scale:integer;
  hr_im, ori_im, lr_im : array of Byte;
  tmp_um: integer;
begin
 if  Image1.Visible = True then   begin
 Get_image_size(pansichar(FileSaveAs1.Dialog.FileName), Image1.Width, Image1.Height );
 end else begin
 ShowMessage('загрузите изображение в формате pgm');
 end;
  scale:=2;
  lwidth:=Image1.Width;
  lheight:=Image1.Height;
  width:=lwidth*scale;
  height:=lheight*scale;

  tmp_um:= width*height;
  SetLength(hr_im,tmp_um);
  SetLength(ori_im,tmp_um);

  tmp_um:= lwidth*lheight;
  SetLength(lr_im,tmp_um);

  Read_image(AnsiChar(PChar(FileSaveAs1.Dialog.FileName)), lr_im);
end;

end.

пробовал менять тип массива - не сработало. Что я делаю не так?

[newerow1989]

В каком месте ошибка?

А что означает эта функция?

Read_image(AnsiChar(PChar(FileSaveAs1.Dialog.FileName)), lr_im);

Не на эту случайно строку ошибка возникает? Из-за lr_im?
Если на эту, то надо так исправить:

type
  tB:array of Byte;

function Read_image(s:string;im:tB);
begin
   {*| Код |*}
end;

procedure TForm1.Action2Execute(Sender: TObject);
var
  lwidth, width, lheight, height, scale:integer;
  hr_im, ori_im : array of Byte;
  tmp_um: integer;
  lr_im:tB;
begin
   {*| Код |*}
end;

[987Alexe4ik]

Да, верно, в этой строке ошибка из-за ir_im.

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

Большое спасибо за быструю помощь :3

[newerow1989]

Пожалуйста!