Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 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
6-1147071006
dmitrlast
2006-05-08 10:50
2006.10.01
Работа с файлами по локальной сети


2-1158265352
vain
2006-09-15 00:22
2006.10.01
PNG


2-1157707015
aromasloru
2006-09-08 13:16
2006.10.01
Болезнь имеет запах!


3-1154083227
Opilki_Inside
2006-07-28 14:40
2006.10.01
Использование CachedUpdates


4-1148436426
not ZX
2006-05-24 06:07
2006.10.01
msocommandbardock





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский