Error while Checking discs

vbimport

#1

I’m trying to burn DVD disc with one VOB file.
This is my code:

[COLOR=DarkSlateBlue] [B]fileName := ‘C:\dvd0\VIDEO_TS\VTS_01_0.VOB’;
WriteCD :=AllocMem(SizeOf(NERO_WRITE_CD));
IsoItem := NeroCreateIsoItem();
StrPCopy(IsoItem.fileName, ExtractFileName(FileName));
IsoItem.fileName[SizeOf(IsoItem.fileName) - 1] := #00;

StrPCopy(IsoItem.sourceFilePath, FileName);
IsoItem.sourceFilePath[SizeOf(IsoItem.sourceFilePath) - 1] := #00;
IsoItem.isDirectory:=FALSE;
IsoItem.isReference:=FALSE;
IsoItem.nextItem := nil;
IsoItem.itemSize := SizeOf(IsoItem);
writeCD.nwcdpCDStamp := nil;
writeCD.nwcdArtist := nil;
writeCD.nwcdTitle := nil;
writeCD.nwcdCDExtra:=FALSE;
writeCD.nwcdNumTracks:=0;
writeCD.nwcdMediaType := MEDIA_DVD_P;
flags := NCITEF_CREATE_UDF_FS + NCITEF_CREATE_ISO_FS;
writeCD.nwcdIsoTrack := NeroCreateIsoTrackEx(IsoItem, ‘jjj’, Flags);
flags := (NBF_DISABLE_EJECT) + (NBF_WRITE);
if FSelectedDeviceHandle <> nil then
begin
Error := NeroBurn(FSelectedDeviceHandle, NERO_ISO_AUDIO_MEDIA, writeCD,flags, 2, @FNeroProgress);
if Error = NEROAPI_BURN_OK then
begin
if Assigned(FOnSucess) then
FOnSucess(self);
end
else
begin
if Assigned(FOnError) then
begin
FOnError(self, ‘’);
end;
end;
end;
if Assigned(IsoItem) then
ReallocMem(IsoItem, 0);
if Assigned(WriteCD) then
ReallocMem(WriteCD, 0);[/[/B]COLOR]

My problem is that the burning faild in Checking discs phase and in the AddLogLine function i can see that he inform “NERO_TEXT_STOP” (After that, of course, I’m getting “Aborted by user”).

What’s wrong??!! :sad: