ED-SDK 2.7 En Delphi

[Spirt]

A little bit early to celebrate. Got another problem. Here is my code :

function TCanonCamera.downloadLiveData(Image:TImage) : Boolean;

var
evfImage : PEdsEvfImageRef;
......

begin

......

stream := nil;
Self.LastError := EdsCreateFileStream(
'LiveData.jpg',kEdsFileCreateDisposition_CreateAlw ays, kEdsAccess_ReadWrite,stream);
if Self.LastError <> EDS_ERR_OK then
Exit;

evfImage:=nil;

Self.LastError := EdsCreateEvfImageRef(stream, evfImage);
if Self.LastError <> EDS_ERR_OK then
begin
EdsRelease(stream);
Exit;
end;

Self.LastError := EdsDownloadEvfImageLiveView(Self.FRef, evfImage^);
if Self.LastError <> EDS_ERR_OK then
begin
EdsRelease(evfImage);
EdsRelease(stream);
Exit;
end;

....

Result := true;
end;

As You can see i redeclared evfImage from EdsEvfImageRef to PEdsEvfImageRef where PEdsEvfImageRef = ^EdsEvfImageRef;

and

function EdsDownloadEvfImageLiveView ( inCameraRef : EdsCameraRef;
inEvfImageRef : PEdsEvfImageRef) : EdsError; stdcall; external edsdk name 'EdsDownloadEvfImage';

It properly saves liveView data to LiveData.jpg, but after exiting this function TCanonCamera.downloadLiveData(Image:TImage) : Boolean; access violation occurs, so I can take only one frame of LiveView data. Still working on it...