Добрый день! Помогите разобраться.
Использую GET запросы для получения инфы с сервера по определенному параметру. Сейчас встала задача перенести все запросы в DLL.
Когда работаю с обычным приложением, все работает. Как перенес в DLL, при обращению к серверу, DLL вылетает.
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | function get(Code: String ): String ;
var
mStream: TMemoryStream;
URL : String ;
IdHTTP1: TIdHTTP;
begin
mStream := TMemoryStream . Create;
URL := '/test/hs/Carts/GetCartInfo/' ;
idhttp1 . Create( nil );
idhttp1 . Host := '185.173.93.28' ;
idhttp1 . Port := 80 ;
result:= idHttp1 . Get(URL+Code,mStream);
end ;
exports get;
|
Админ: Пользуемся тегами при оформлении кода!