Проблема с синапсом в dll (многопоточность)

[lollollollol]

Моя длл подгружается в мой exe.

Вызывается функция дллки, которая использует синапс для подключения к сайту.
Когда софт работает в один поток, проблем нет!
Но стоит запустить хотябы 2 потока, вылетает с ошибкой памяти (access violation и некоторые другие, ошибка чтения/записи, всегда поразному).
Примечательно то, что после первого вылета с ошибкой больше функция не выполняется вообще. Как будь-то в памяти дллки всё нарушилось, и нет больше вызываемой функции.

так вот код дллки:

//КОД
HTTP.HTTPMethod('POST',URL);
//КОД

Вот если сделать так:

//КОД
HTTP.HTTPMethod('POST',URL);
HTTP.Free;
result:=1;
exit;

То я получаю ошибку.
А если сделать так:

HTTP.Free;
result:=1;
exit;
HTTP.HTTPMethod('POST',URL);
//КОД

Ошибки нет!

Вывод - проблема в HTTP.HTTPMethod.

Я бы подумал может какая проблема в синхронизации, но если прямо в длл вызвать этот код, даже в 100 потоков всё реботает идеально.
Проблема только тогда, когда вызываю функцию из загруженой дллки.

Добавлю что директива stdcall; установлена в описании функции в длл и в описании функции вызова.


Кто может подсказать как побороть проблему?
Вариант переместить код в проект ехе и отказаться о длл не устраивает, ибо совсем каша кода получится. Да и для дальнейшего развития проекта длл удобнее.

Заранее спасибо

А ещё вопрос, когда 2 потока вызывают одну функцию в длл, на каждую функцию создаётся свой поток? или как?

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

И что правильнее использовать,
hThread:=BeginThread(nil,0,@THREAD_ START,nil,0,ThID);


или

hThread:=CreateThread(nil,0,@THREAD _START,nil,0,ThID);


я разницы не увидел

[Stilet]

Вот если сделать так:

Полностью код этой функции в студию.

А если сделать так:

А если почитать книжки по паскалю? Не? Не поможет? Особенно про оператор exit.

когда 2 потока вызывают одну функцию в длл, на каждую функцию создаётся свой поток? или как?

Нет. Не поток. Функция просто вызывается в сегменте стека потока храня переданные ей параметры и локальные переменные. Но никакой поток при этом не создается. Говорят "Функция работает в контексте потока".

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

Почему изврат? Я так и делаю. Понадобилось чет слямзить из инета - создается поток, в него передаются параметры, поток отрабатывает и тю-тю.
Если делать это функцией то можно callback применить:

TFunc=procedure(s:string);
...
function DoThre(url:String;CallBack:TFunc):Boolean;

Т.е. вызвать функу, передать ей Урл и указатель на обработчик, что сам поток вызовет после закачки данных.

[lollollollol]

А если почитать книжки по паскалю? Не? Не поможет? Особенно про оператор exit.

Я специально так сделал, показать, что проблема именно в строке запроса синапса.


остальной код не имеет значения в данном случае. Т.к. всё работает стабильно если длл запустить как ехе и прямо из неё выполнять код.

Сейчас попробую через поток, посмотрим что получится.



Я думал что функуия дллки выполняется в потоке, который её вызвал! или нет?
Если так, проблем быть не должно.
А если я создаю поток уже прямо в длл, получается что на одну функциюбудет создано аж 2 потока.
Поясню, что я именно в потоке вызываю функцию дллки!

[Stilet]

Я думал что функуия дллки выполняется в потоке, который её вызвал! или нет?

Ну правильно.

если я создаю поток уже прямо в длл, получается что на одну функциюбудет создано аж 2 потока.

Я почему код в студию прошу - чтоб понять что ты там такое создаешь. Я без понятия как у тебя там вложенность сделана, по твоим описаниям это понять сложно.

я именно в потоке вызываю функцию дллки!

Тем более код в студию.

[lollollollol]

 
//Загружаю длл
var
  Get_Info   : function (info:Tinfo;Account:AnsiString;var inbox:Tinbox;IdGetMess:AnsiString):integer; stdcall;
  Send_Info  : function (info:Tinfo;Account:AnsiString; var unread:Tunread):integer; stdcall;

...

DLL:=ExtractFilePath(ParamStr(0))+'INFO.dll';
  if (FileExists(DLL)=true) then begin
    h:=LoadLibraryA(PAnsiChar(DLL));
    if (h<>0) then begin
      @Get_Info     := GetProcAddress(h, 'Get_Info');
      @Send_Info    := GetProcAddress(h, 'Send_Info');
    end else begin
      MessageBox(0,Pchar(inttostr(GetLastError)),'GetLastError',0);
      Application.Terminate;
    end;
  end else begin
    MessageBoxA(0,PANsichar('Error dll'+#13#10#13#10+DLL),'ERROR',0);
    Application.Terminate;
  end;     

...

  //Запуск потоков рассылки
n:=3;
  a:=0;
  while (a<n) do begin
    hThread:=BeginThread(nil,0,@THREAD_WORK,nil,0,ThID);
    CloseHandle(hThread);
    inc(a);
  end;

...

//Поток
procedure THREAD_WORK; stdcall;
...
SendResult := Send_Info(Info,acc,unread);

и в дллке

function Send_Info(info:Tinfo;Account:AnsiString; var unread:Tunread):integer; stdcall;
var
...
begin
...
//Вот если остановить выполнение функции тут, то ошибки нет
    HTTP.HTTPMethod('POST',URL);
//Если установить выполнение функции тут, то в случае ДВУХ И БОЛЕЕ потоков вылетает ошибка памяти. 
После первой ошибки, при повторных попытках вызова функции, функция не выполняясь сразу заканчивается ошибкой. 
даже первая строка не выполняется.
...

Вот инфа об ошибке

Имя события проблемы: APPCRASH
Имя приложения: Project1.exe
Версия приложения: 0.0.0.0
Отметка времени приложения: 56503609
Имя модуля с ошибкой: INFO.dll

Добавлю, что если я скомпилирую вместо дллки проект как exe, и создам потоки прямо в этом файле, то данная функция работает без проблем даже в 100 потоков! Даже через час жесткой работы в дипетчерез задач видно, что нет утечки памяти.

[Пепел Феникса]

HTTP часом не глобальный объект?

[lollollollol]

нет конечно!
В дллке вообще нет глобальных переменных.

Да и еслиб он был глобальным, не работали бы 100 потоков при запуске в процессе.

проблема имено с вызовом функции из длл, ну или в чём там ещё... не пойму в чём проблема.

проблема возникает именно когда 2 потока ОДНОВРЕМЕННО начинают загружать информацию. Если по очереди тоже проходит гладко всё.
Может как-то с переполнением памяти связано. Дллкаже ограничена в памяти моего поцесса...

[Stilet]

Мдя... Самое главное ты и не показал...
Ладно, скажу напоследок: HTTP создавай и освобождай в пределах функции, и переменка эта должна быть локальной.

[lollollollol]

ёмаё, вот то что ты сказал впринципе не обсуждается, это так и сделано.

А не показал я это потому, что даже подумать не мог, что как-то иначе можно сделать