api в своем приложении

[MORPEH]

Здравствуйте.
Нужна помощь примером. Понимаю что отправите в гугл, там есть примеры, но довольно сложные. Нужен простой.

В данный момент, есть программа, которая выполняет запрос к сайту. Делает так:

procedure TForm1.btn2Click(Sender: TObject);
var
cost_sms: String;
begin
idhtp1.Request.ContentType:= 'application/x-www-form-urlencoded';
cost_sms:= idhtp1.URL.URLEncode('http://primer.ru/info/news?api_id=jnk239-jnkfjn31n98n1a&cat=1';
mmo2.Text := idhtp1.Get(cost_sms);
idhtp1.Disconnect;
end;

Как сделать в программе выбор, какую библиотеку использовать. То есть в каждой длл есть примерно такой код. Как в программе выбирать длл нужную?

[Stilet]

Иди ка та ы Гугол, любезнейший
Шучу. Вот как делаю я в своем плагинированном проекте:
Есть пускатель:

function Site(LibName: String):String;
type p=procedure (var res:TStringList;js:TStringList;p:TStrings);
type pe=procedure (res:TStringList;js:TStringList;p:TIdHTTPRequestInfo);

var s:TStringList;h:HMODULE; me:p; men:pe;
begin      Result:='';
 s:=TStringList.Create;js:=TStringList.Create;
 h:=LoadLibrary(pchar(ExtractFilePath(ParamStr(0))+LibName+'.dll'));
 try
     if h<>0 then begin
        me:=GetProcAddress(h,'me');
        if Assigned(me) then begin
         try
          me(s,RequestInfo.Params);
         except
           on e:Exception do s.Text:='<div class="fail">Ошибка в '+LibName+'<br>'+e.Message;
         end;
        end;
        Result:=s.Text;
      
     end;
 except
  on E:Exception do  log('Ошибка : '+e.Message);
 end  ;
  FreeLibrary(h);
  s.Free;
end;

Он вызывается так:
Site(d) где d содержит имя нужного плагина.
К примеру:

if doc='первое' then Site('First') else
if doc='Второе' then Site('Second') else
...
И так до посинения

В зависимости от того чему равен doc загружается тот или иной плагин, вызывается его главная функция, которая в плагинах описана так:

library First;

uses
  SysUtils, unitConst,
  Classes


{$R *.res}

procedure me(var res:TStringList;p_:TStrings); export;
begin
 Что-то делаем и возвращаем результат в виде строки в res.
end;

 exports me;
begin
end.

Так у меня сделан каждый плагин. p_ входящие параметры, res выходящие

Идея ясна?

[MORPEH]

Идея ясна, можно будет если что обратиться еще?

[Stilet]

Пиши в эту тему.
Буду в эфире - отвечу.
Кстати мне бы тоже было интересно узнать как другие делают.

[Человек_Борща]

Как сделать в программе выбор, какую библиотеку использовать. То есть в каждой длл есть примерно такой код. Как в программе выбирать длл нужную?

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

По поводу реализации API, что же Component Object Model уже не вариант?

Вот отличное начало раработки системы плагинов от GunSmooker'а.
Предысторию этой серии тоже рекоммендательно прочитать, там много про COM есть, а так же рассматриваются не только интефейсы, но и тараканы "почему все остальное может быть не удобным".