Error Use Library In Delphi.

[puma]

Yes while Im compiling I get the error I just............  The above error occured on following pascal that you provided in your library. Please guide me.....thankyou 

program Defrag;

{$APPTYPE CONSOLE}

Uses sysutils;
   ///////////////This is the Defragmentor function
procedure RunJkDefrag(
  Path: PWideChar;
  Mode: Integer;
  Speed: Integer;
  FreeSpace: Double;
  Excludes: array of PWideChar;
  SpaceHogs: array of PWideChar;
  Running: PInteger;
  RedrawScreen: PInteger;
  ShowStatus, ShowMove, ShowAnalyze, ShowDebug, DrawCluster, ClearScreen: Pointer;
  DebugMsg: array of PWideChar);
       stdcall; external 'JkDefragLib' name 'RunJkDefrag';
procedure StopJkDefrag(Running: Pointer; TimeOut: Integer);
 stdcall; external 'JkDefragLib' name 'StopJkDefrag';


procedure ShowStatus(Data: pointer); CDECL;
begin
writeln('Show the Status:');
end;

procedure ShowMove(Item: pointer; Clusters, FromLcn, ToLcn, FromVcn: int64); CDECL;
begin
writeln('Show the movement Move:');
end;

procedure ShowAnalyze(Data: pointer; Item: pointer); CDECL;
begin
writeln('Show the analyser Analyze:');
end;

procedure ShowDebug(Level: Integer; Item: Pointer; Format: PChar; Args: Array of const); CDECL;
begin
writeln('The Debug Information: ',Format);
end;

procedure DrawCluster(Data: pointer; ClusterStart, ClusterEnd: int64; Color: Integer); CDECL;
begin
writeln('Draw the Cluster Information:');
end;

procedure ClearScreen(Format: PChar; Args: Array of const); CDECL;
begin
writeln('ClearScreen: ',Format);
end;



var
Excludes : Array of PWideChar = nil;
SpaceHogs : Array[0..2] of PWideChar = (
  '?:\WINDOWS\ServicePackFiles\*',
  '*.zip',
  nil
  );
Running: Integer;
RedrawScreen: Integer;
VolumeName :PwideChar;
DriveId:Integer;
//Running,RedrawScreen:PInteger;
DefaultDebugMsg:Array of PWideChar = nil;
begin
DriveId:=5;
New(VolumeName);
VolumeName:= 'F:';
writeln('Starting Ultra Amco ');
//  DrawCluster(Data: pointer; ClusterStart, ClusterEnd: int64; Color: Integer);
//RunJkDefrag.....................0,0,1
//Volume name C
//Excluded......

Excludes:=nil;
RunJkDefrag(VolumeName,40,40,1,Excludes,
SpaceHogs,@Running,@RedrawScreen,
@ShowStatus,
@ShowMove,@ShowAnalyze,@ShowDebug,
@DrawCluster,
@ClearScreen,
DefaultDebugMsg);
//Volume is free
//
Dispose(VolumeName);
ReadLn;
end.

[jeroen]

I see several differences between your code and the original JkDefrag example. In your code the RunJkDefrag and StopJkDefrag are declared as "stdcall", but in the original as CDECL. And you have defined the "Excludes" as "nil", not as an array of PWideChar.

[puma]

I tried the one provided in example but the story is same, Im facing the same error.  I have created a file of extension .pas, copied the code you have provided and compiled it. but it doesnt work.   Nothing happens.   Thankyou.....  can you tell me the problem.  I re-run the created exe file  on cmd and this is the following response.

Exception EAccessViolation in module JkDefragLib.dll at 00008C27.
Access violation at address 10008C27 in module 'JkDefragLib.dll'. Write of addre
ss 00000002.

[jeroen]

I tried the one provided in example but the story is same, Im facing the same error.

I am sorry, but I have no idea what the problem could be. Your statements about "same error" and "nothing happens" seem to be conflicting, and as far as I know the example should simply work. I am not a Delphi/Pascal programmer myself, so I have no suggestions. Sorry! If you find a solution then please let me know!

[puma]

Ok thaks.......  I have some querries.......

1) How do you get the VCN and LCN of cluster on which the file is copied thorugh FSCTL_GET_RETRIEVAL_POINTERS?

2) FSCTL_GET_VOLUME_BITMAP doesnt give information regarding the LCN and VCN of the clusters so how do I get this information which is used in FSCTL_GET_RETRIEVAL_POINTERS?

3) Does the cluster size matters?

[jeroen]

I have some querries.......

For more information about those function calls see the Microsoft manuals. For a working example see the sources of JkDefrag, the "JkDefragLib.cpp" file.

3) Does the cluster size matters?

No, not really. To move a file it's not necessary to know the cluster size.

[C0derr]

Hi everybody!
I have the same problem with using dll in Delphi.

Exception EAccessViolation in module JkDefragLib.dll at 00008C27.
Access violation at address 10008C27 in module 'JkDefragLib.dll'. Write of addre
ss 00000002.

Has anybody solved it?

PS: I used the example in src without any changes.
PSS: that's very important

[raybackjoe]

Thanks for you replied.