Виртуальная библиотека Delphi

ERROR_INVALID_PASSWORD — Неверный пароль

ERROR_NO_NETWORK — Нет сети

2.Отключить сетевой ресурс

WNetCancelConnection(LocalName:PChar; ForseMode:Boolean):Longint;

где

LocalName — имя, под которым сетевой ресурс был подключен к данному компьютеру (например 'F:')

ForseMode — режим отключения :

False — корректное отключение. Если отключаемый ресурс еще используется, то отключения не произойдет (например, на сетевом диске открыт файл)

True — скоростное некорректное отключение. Если ресурс используется, отключение все равно произойдет и межет привести к любым последствиям (от отсутствия ошибок до глухого повисания)

Функция возвращает код ошибки. Для всех кодов предописаны константы, наиболее часто используемые :

NO_ERROR — Нет ошибок — успешное завершение

ERROR_DEVICE_IN_USE — Ресурс используется

ERROR_EXTENDED_ERROR — Некоторая ошибка сети (см. функцию WNetGetLastError для подробностей)

ERROR_NOT_CONNECTED — Указанное ус-во не является сетевым

ERROR_OPEN_FILES — На отключаемом сетевом диске имеются открытые файлы и параметр ForseMode=false

Рекомендация: при отключении следует сначала попробовать отключить ус-во с параметром ForseMode=false и при ошибке типа ERROR_OPEN_FILES выдать запрос с сообщением о том, что ус-во еще используется и предложением отключить принудительно, и при согласии пользователя повторить вызов с ForseMode=true

Есть первый вариант:

procedure procname1(param1:type1; param2:type2... и т.д.) external 'dllname.dll' name 'procname_in_dllfile';

Но тут есть один нюанс: при отсутствии DLL модуля, либо при отсутствии в нем указанной процедуры будет выдаваться ошибка и запуск программы будет отменен.

Второй вариант:

Type

prc1 = procedure (param1:type1; param2:type2... и т.д.) ;

var

proc1 : prc1;

head : integer ; // или что-то в этом роде

.....

var

p : pointer;

begin

head:= loadlibrary ('DLLFile.DLL'); // загружаем модуль в память

if head=0 then begin

// Сообщаем о том что модуль не найден

end

else begin

// Ищем в модуле наши процедуры и функции

p:=getprocaddress ('Имя_Искомой_Процедуры');

// Тут посмотри точно название этой

// функции в хелпе по LoadLibrary.

// Имя_Искомой_Процедуры должно

// быть один в один с именем процедуры

// в библиотеке с учетом регистров.

if p=nil then begin

// Процедура не найдена

end else proc1:=prc1(p);

end;

К примеру, функция "прослушивает" каталог на предмет файлов. Если находит, то создает нить, которая будет обрабатывать файл. Потомку надо передать имя файла, а вот как?

Странный вопрос. Я бы понял, если бы требовалось передавать данные во время работы нити. А так обычно поступают следующим образом.

В объект нити, происходящий от TThread дописывают поля. Как правило, в секцию PRIVATE. Затем переопределяют конструктор CREATE, который, принимая необходимые параметры заполняет соответствующие поля. А уже в методе EXECUTE легко можно пользоваться данными, переданными ей при его создании.

Например:

......

TYourThread = class(TTHread)

private

FFileName: String;

protected

procedure Execute; overrided;

public

constructor Create(CreateSuspennded: Boolean; const AFileName: String);

end;

.....

constructor TYourThread.Create(CreateSuspennded: Boolean; const AFileName: String);

begin

inherited Create(CreateSuspennded);

FFIleName := AFileName;

end;

procedure TYourThread.Execute;

begin

try

....

if FFileName = ...

....

except

....

end;

end;

....

TYourForm = class(TForm)

....

private

YourThread: TYourThread;

procedure LaunchYourThread(const AFileName: String);

procedure YourTreadTerminate(Sender: TObject);

....

end;

....

procedure TYourForm.LaunchYourThread(const AFileName: String);

begin

YourThread := TYourThread.Create(True, AFileName);

YourThread.Onterminate := YourTreadTerminate;

YourThread.Resume

end;

....

procedure TYourForm.YourTreadTerminate(Sender: TObject);

begin

....

end;

....

end.

СGI программа должна показывать GIF изображение.

Имею тег. Прочитать JPeg, указать ContentType=Image/jpeg и выдать изображение в SaveToStream умею. Как сделать тоже самое для файлов GIF, в особенности анимационных? Если можно просто перелить дисковый файл (пусть он хоть трижды GIF) в Response CGI-програмы, то как это сделать?