Hi,

I have a unit called extractdwg.pas which contains the following code.

~~~~~~~~~~~~~~~~~~ 8< ~~~~~~~~~~~~~~~~~~~~~
unit extractdwg;
interface

uses
Classes, Forms, SysUtils,Dialogs,
dwgsFunctions,dwgglobals,

  Controls;

procedure StartExtract(DWGFilename: string);
var
    BinFile: file;
implementation
uses Unit1;
procedure StartExtract(DWGFilename: string);
var i,j: integer;
    binfile: File;
   longBuff: ^integer;
begin
     Screen.Cursor:=crHourGlass;
     AssignFile(BinFile, DWGFilename);
     Filemode:=0;
     Reset(BinFile,1);
     Seek(BinFile,21);
     ....
     ....
end;
~~~~~~~~~~~~~~~~~~ 8< ~~~~~~~~~~~~~~~~~~~~~

This is called from unit1:

  with OpenDialog1 do
  if Execute then
  begin
    StartExtract(FileName);
  end;

I select a file /home/dave/Documents/ACAD/4m2.dwg (no spaces). The file name is correctly passed to StartExtract(DWGFilename) but the program stops with the error message "Project raised exception class 'ElnOutError' with message: File not found.

ElnOutError due to file not found should print out the filename. Is it "/home/dave/Documents/ACAD/4m2.dwg" or "" or even nothing at all?

The DWGFilename is reported correctly as /home/dave/Documents/ACAD/4m2.dwg

This code has worked previously, certainly in Delphi 3, and I'm reasonably sure in Lazarus, too; I was just wondering if there had been any changes in Lazarus which might have broken it. I last worked on it in 2006/2007.

In the meantime I tried to upgrade to the latest SVN, but appear to have broken Lazarus. :+(

Should work.

I select a file /home/dave/Documents/ACAD/4m2.dwg (no spaces). The file name is correctly passed to StartExtract(DWGFilename) but the program stops with the error message "Project raised exception class 'ElnOutError' with message: File not found.

On which line stops the debugger?

Mattias