Чтение Excel файлов в Lazarus

[AndrzejX]

Понятно, спасибо. Конечно, подожду, я не тороплюсь.

[Stilet]

Заряди так:

 try
  Excel:=CreateOleObject('Excel.Application');
  if FileExists(FileName) then  Excel.WorkBooks.Open(FileName)
  else ShowMessage('"'+FileName+'" Не существует' );
 except
  on E:Exception do ShowMessage(SysErrorMessageUTF8(GetLastOSError));
 end;

И Скрин ошибки в студию.

[AndrzejX]

Подозрение что система не воспринимает имя файла? Нет, латиницу нормально воспринимает. Я оставил только:

  
if FileExists(FileName)
    then ShowMessage('Существует')
    else ShowMessage('Не существует');

Сообщение: Существует.

Если вместо сообщения заставить открыть файл, то ошибка

??? Add ???? WorkBooks ????????

Вот скрин сообщения об ошибке

Я был невнимателен. Но когда я скопировал ваш код полностью, то вышло сообщение:

Операция успешно завершена

[Stilet]

когда я скопировал ваш код полностью, то вышло сообщение

Ану покаж код полностью.

[AndrzejX]

procedure ReadExcelFile(FileName, Sheet: String; ColCount, RowCount: Integer; var Region: TRegion);
var Excel: Variant;
 i, j: Integer;
begin
try
  Excel:=CreateOleObject('Excel.Application');
  if FileExists(FileName)
    then  Excel.WorkBooks.Open(FileName)
    else ShowMessage('"'+FileName+'" Не существует' );
 except
  on E:Exception do ShowMessage(SysErrorMessageUTF8(GetLastOSError));
 end;
 Excel.Quit;
end;

[Stilet]

Так, и что, если сделать пошаговку, то выполнение попадет на исключение?

[AndrzejX]

Delphi перехватывает блоки try/except, если не сделать исключение, но как это сделать в Lazarus я не соображу. Ошибка возникает до except в среде Lazarus. При пошаговом выполнении строка

then Excel.WorkBooks.Open(FileName)

пропускается, на строке

else ShowMessage('"'+FileName+'" Не существует' );

выскакивает ассемблер. Даже если FileName закомментировать.


Так что хрень чего понятно. Я тут параллельно устанавливаю CodeTyphon, небыстрое это дело, Delphi7 побыстрее стала.

[Stilet]

А ты его (проект) хоть скомпилировал то?
Если не скомпилить, отладчик может лажать, потому что он GDB.

[AndrzejX]

Это называется "Испорченный телефон". Что я как передаточное звено. Ещё я дальтоник и зелёную стрелочку от красного квадратика не отличаю...

[Stilet]

Это называется "Испорченный телефон".

Ты не понял )
GDB в лазарусе не всегда нормально срабатывает - приходится перестраивать проект.
Код правильный, ошибок давать не должен, соответственно нужно проводить отладку и смотреть что не так.
Хорошо - по другому:

procedure ReadExcelFile(FileName, Sheet: String; ColCount, RowCount: Integer; var Region: TRegion);
var Excel: Variant;
 i, j: Integer;
 Excel,book:OleVariant;
begin

 if not FileExists(FileName) then begin
  ShowMessage('Файл не найден "'+FileName+'"');
  Exit;
 end;

 try
  Excel:=CreateOleObject('Excel.Application');
 except
  on E:Exception do begin
    ShowMessage('Ошибка запуска Экзеля: '+SysErrorMessageUTF8(GetLastOSError));
    exit;
  end;
 end;

 try
  book:=Excel.WorkBooks;
  if not Assigned(book) then begin ShowMessage('Коллекция не получена'); Excell:=unassigned; exit; end;
  book.Open(FileName);
 except
  on E:Exception do begin
    ShowMessage('Ошибка Открытия файла "'+FileName+'": '+SysErrorMessageUTF8(GetLastOSError));
  end;
 end;

 Excel.Quit;
 Excel:=unassigned;
end;