Форум OlegON > Компьютеры и Программное обеспечение > Операционные системы и программное обеспечение > Программирование

Delphi. Пример загрузки и использования внешней библиотеки (Болтун) : Программирование

19.03.2024 8:30


22.09.2012 09:00
OlegON
 
Код:
var
Handle:THandle;
LoadMind: function(P:PChar): Integer; stdcall;
GetReplyTo: function(const InText: PChar; OutText: PChar; Len: integer): PChar; stdcall;
Len,i:Integer;
Rep:PChar;
begin
Len:=255;
GetMem(Rep,255);
    Handle := LoadLibrary('smartbot.dll');
    if Handle <> 0 then try
      LoadMind := GetProcAddress(Handle, 'LoadMind');
      GetReplyTo := GetProcAddress(Handle, 'GetReplyTo');
      if Assigned(LoadMind) then Caption:=IntToStr(LoadMind('mind.dat'));
    except
    end;
if Assigned(GetReplyTo) then begin
       GetReplyTo(PChar(Edit1.Text),Rep,Len);
       Edit2.Text:=copy(Rep,1,Len);
       end else Edit2.Text:='no reply';
FreeMem(Rep);
if Handle<>0 then  FreeLibrary(Handle);
Часовой пояс GMT +3, время: 08:30.

Форум на базе vBulletin®
Copyright © Jelsoft Enterprises Ltd.
В случае заимствования информации гипертекстовая индексируемая ссылка на Форум обязательна.