Форум: "Начинающим";
Текущий архив: 2006.10.01;
Скачать: [xml.tar.bz2];
Вниз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;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.013 c