Thank you
Help me please
I do like this
var
singl_Img: TSingleImage;
Img : TImageData;
begin
if not NewImage(img_W, img_H, ifIndex8, Img) then Exit;
CopyMemory(Img.Bits, @imageBuf[0], Img.Size);
singl_Img.CreateFromData(Img);
try
singl_Img.SaveToFile(DirSave_path + '\' + node_img_name.NodeValue + '.jpg');
finally
singl_Img.Free;
end;
but get "Access violation" error on singl_Img.CreateFromData(Img);
the error erise in this procedure
{ TBaseImage class implementation }
constructor TBaseImage.Create;
begin
SetPointer;
end;