DLL+Delphi

← →
RagapuK (2006-09-12 16:31) [0]

Хочу сделать запуск DLL из Delphi.
Мне посоветовали так:
var LibHandle: THandle = 0; procedure TForm1.Button1Click(Sender: TObject); begin // загрузка библиотеки LibHandle:= LoadLibrary("mylib.dll"); if LibHandle< 1 then begin ShowMessage(SysErrorMessage(GetLastError)); exit; end else begin // библиотека загружена успешно end; end; procedure TForm1.Button2Click(Sender: TObject); begin // выгрузка библиотеки if LibHandle> 0 then if not FreeLibrary(LibHandle) then ShowMessage(SysErrorMessage(GetLastError)); end;

А сам DLL имеет вид:
ibrary Project2; uses SysUtils, Classes; {$R *.res} begin assign (input,"txt.txt"); rewrite (input); writeln ("AAAAAAAAAAAAAAAAAAAAAAAAAAA"); writeln ("AAAAAAAAAAAAAAAAAAAAAAAAAAA"); writeln ("AAAAAAAAAAAAAAAAAAAAAAAAAAA"); writeln ("AAAAAAAAAAAAAAAAAAAAAAAAAAA"); close (input); end.

При компиляции ошибка "I/O error 105"...
Что делать?

← →
Сергей М. © (2006-09-12 16:35) [1]

> Что делать?

Известно что - искать кто виноват)

← →
default © (2006-09-12 16:38) [2]

> При компиляции ошибка "I/O error 105"...
> Что делать?

поставить компилятору чтобы об ошибках тактично умалчивал
а дальше работа тестеров:)

← →
default © (2006-09-12 16:44) [3]

ошибка, очевидно, при работе с файловой переменной input

> I/O error 105"...

I/O это Input/Output
то есть ошибка ввода/вывода у тебя, DLL тут не причём

← →
default © (2006-09-12 16:46) [4]

"105 File not open for output Reported by Write or Writeln on a text file if you do not generate a Console application."
хелп в следующий раз читай сначала

← →
RagapuK (2006-09-12 16:52) [5]

> "105 File not open for output Reported by Write or Writeln
> on a text file if you do not generate a Console application.
> "
> хелп в следующий раз читай сначала

А перевести можно?

← →
default © (2006-09-12 16:55) [6]

RagapuK (12.09.06 16:52) [5]
труба говорит, ибо это не консольное приложение

← →
Loginov Dmitry © (2006-09-12 16:58) [7]

> А перевести можно?

В программе, которая не имеет никакого отношения к Console application используются процедуры, характерные именно для указанного типа приложений. В общем, читай книги.

а нука F1+input, та в конце

Var tx:TextFile begin assign (tx,"txt.txt"); rewrite (tx); writeln (tx,"AAAAAAAAAAAAAAAAAAAAAAAAAAA"); close (tx); end.

← →
RagapuK (2006-09-13 16:42) [10]

Thank You!!!!!!!!!!

DLL+Delphi Найти похожие ветки