Текущий архив: 2006.10.01;
Скачать: CL | DM;

Вниз

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 используются процедуры, характерные именно для указанного типа приложений. В общем, читай книги.

---

← →
default ©   (2006-09-12 16:59) [8]

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

---

← →
Наиль ©   (2006-09-12 17:05) [9]

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!!!!!!!!!!

---

Страницы: 1 вся ветка

Текущий архив: 2006.10.01;
Скачать: CL | DM;

Наверх

Память: 0.49 MB
Время: 0.05 c