Как сохранить функцию для дальнейшего использования?

[bakanaev]

Доброго времени суток господа!

Недавно создавал подобную тему, но в ней ответ так и не вышло получить).

Есть у меня набор самомписных функций, которые я использую почти в каждой второй своей полярограмме.
Как бы мне их сохранить так что бы в будущем можно было було их подключать просто через uses. Спасибо

[Аватар]

А в чем проблема? Не нравится путь к юниту в каждом проекте прописывать? Мне бы такие проблемы

[Sciv]

Что-то мешает все эти функции записать в один модуль?

Или сляпать dll с этими функциями и подключать ее.

[bakanaev]

Сообщение от Sciv

Что-то мешает все эти функции записать в один модуль?

Вы про это?
File-New-Unit ?
Если да, то после сохранения и подключения кидает ошибку
File not found: 'my_function.dcu'

[bakanaev]

Сообщение от Аватар

А в чем проблема? Не нравится путь к юниту в каждом проекте прописывать? Мне бы такие проблемы

Да я бы с радостью прописывал их
Если бы все компилилось ок

[artbotva]

Сообщение от bakanaev

Вы про это?
File-New-Unit ?
Если да, то после сохранения и подключения кидает ошибку
File not found: 'my_function.dcu'

Возможно ты не туда кинул функцию...

[bakanaev]

Сообщение от artbotva

Возможно ты не туда кинул функцию...

Ну как бы файла my_function.dcu ни когда и не было. А был лишь только my_function.pas

[Sciv]

Можно через dcc32 попробовать скомпилить

Еще мысль: unit добавляете в uses модуля, а в сам проект его добавить не пытались?

[bakanaev]

Может кто скомпилит данную функцию, и зальет куда нибудь. Она не моя, но я ее тоже часто использую. Если у Вас получится, расскажите как Вы это сделали)

function proxyCheck(AType ,Aproxy, Aport, Auser, Apass:string; time:integer):boolean;
var
idhttpN:tidhttp;
IdSocksInfoN:TIdSocksInfo;
IdSSLIOHandlerSocketOpenSSLN:TIdSSLIOHandlerSocketOpenSSL;
rev:string;
begin
 
idhttpN:=tidhttp.Create;
IdSocksInfoN:=TIdSocksInfo.Create;
IdSSLIOHandlerSocketOpenSSLN:=TIdSSLIOHandlerSocketOpenSSL.Create;
 
if AType='HTTP' then begin
 
IdHTTPN.ProxyParams.ProxyServer:=Aproxy;
IdHTTPN.ProxyParams.ProxyPort:=strtoint(Aport);
IdHTTPN.ProxyParams.ProxyUsername:=AUser;
IdHTTPN.ProxyParams.ProxyPassword:=APass;
 
end else if AType='SOCKS 4' then begin
 
IdSocksInfoN.Version:=svSocks4;
IdSocksInfoN.Host:=Aproxy;
IdSocksInfoN.Port:=strtoint(Aport);
IdSocksInfoN.Authentication:= saNoAuthentication;
IdHTTPN.ProxyParams.ProxyUsername:=AUser;
IdHTTPN.ProxyParams.ProxyPassword:=APass;
 
IdSSLIOHandlerSocketOpenSSLN.TransparentProxy:=IdSocksInfoN;
IdHTTPN.IOHandler:=IdSSLIOHandlerSocketOpenSSLN;
 
end else begin
 
IdSocksInfoN.Version:=svSocks5;
IdSocksInfoN.Host:=Aproxy;
IdSocksInfoN.Port:=strtoint(Aport);
IdSocksInfoN.Authentication:= saNoAuthentication;
IdHTTPN.ProxyParams.ProxyUsername:=AUser;
IdHTTPN.ProxyParams.ProxyPassword:=APass;
 
IdSSLIOHandlerSocketOpenSSLN.TransparentProxy:=IdSocksInfoN;
IdHTTPN.IOHandler:=IdSSLIOHandlerSocketOpenSSLN;
 
end;
 
IdHTTPN.ReadTimeout:=time;
try
rev:=IdHTTPN.Get(http://zyon-soft.ru/show.php');
except
on EIdHTTPProtocolException do
rev:='';
end;
if trim(rev)=trim(Aproxy) then Result:=True else Result:=False;
 
idhttpn.Free;
IdSocksInfoN.Free;
IdSSLIOHandlerSocketOpenSSLN.Free;
 
end;

[Аватар]

А сам модуль с функцией как оформлен?