| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

DLL+Delphi [D7, 95/98, ME, NT4, 2000, XP, 2003]

RagapuK ©   (2006-09-12 16:31:00) 

Хочу сделать запуск 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"...
Что делать?

---

RagapuK   (2006-09-13 16:42:00) [1]

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

---

Наиль   (2006-09-12 17:05:00) [2]

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

---

default   (2006-09-12 16:59:00) [3]

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

---

Loginov Dmitry   (2006-09-12 16:58:00) [4]

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


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

---

default   (2006-09-12 16:55:00) [5]

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

---

RagapuK   (2006-09-12 16:52:00) [6]

> "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:46:00) [7]

"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:44:00) [8]

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

> I/O error 105"...

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

---

default   (2006-09-12 16:38:00) [9]

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

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

---

Сергей М.   (2006-09-12 16:35:00) [10]

> Что делать?


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

---

Наверх