компьютерный форум
Вернуться   Компьютерный форум > Программирование и вебстроительство > Программирование

Ответ
 
LinkBack Опции темы Опции просмотра
Старый 28.01.2006, 10:31   #1
Пользователи
 
Регистрация: 28.01.2006
Сообщений: 1
По умолчанию

:help: :help: :help:
Вообшем есть функция в ДЛЛ:

library brainDLL;
uses
SysUtils,
Classes;
function brain(Nick:string;S:string):string;
stdcall;
var
buf:string;
nam,kan:string;
begin
try
result:='';
buf:=s; {это было одна из попыток от безысходности}
if pos('JOIN :#',buf)0 then
begin
nam:=buf;
delete(nam,1,1);
delete(nam,pos('!',name),length(name));
kan:=buf;
Brain:=Kan+' :'+Nam;
if nick=nam then Brain:='';
end else result:='';
except result:=''; end;
end;
exports Brain index 1 name'Brain';
{$R *.res}
begin end.

И есть код в программе ее вызывавюший:

handle:=loadlibrary('BrainDll.dll');
if handle=0 then
begin
showMessage('DLL файл ИИ не найден');
Halt;
end;
@Brain := GetProcAddress(Handle,'Brain');
client.Socket.SendText(Brain(nameTXT,SS));
freelibrary('BrainDll.dll');


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




wizard вне форума  
Digg this Post!Bookmark Post in Technorati
Ответить с цитированием
28.01.2006, 10:31
Техник
реклама
По умолчанию

Ответ


Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Вкл.



Текущее время: 09:39. Часовой пояс GMT.


Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd. Перевод: zCarot
Content Relevant URLs by vBSEO 3.5.0 RC2