Программа с присоединяемыми библиотеками.

[Чай_ник]

Работаю на делфи. Как сделать программу с присоединяемыми библиотеками? По сути это будет проект по обработке графов, где в основной программе будет храниться только ввод\вывод + рандомный граф, а функции обработки будут храниться в подключаемых библиотеках.

[Swarog]

качаем сборник примеров Delphi World...

либо ищем статью из этого сборника ...


Подгружаемые модули (plugins) в Delphi

[Чай_ник]

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

[Swarog]

ну раз гугл не мил, вот есть у меня тут одна программка - игра сеть, вот процедура визуализации из нее. Сеть представляет собой набор точек соединенных путями (вроде aka граф)...

procedure TForm1.ReDraw;
 var i: integer;
begin
 if showWinMassage then exit;
 if CalcInter() then
  begin
   showWinMassage := true;
   messagebox(0,Pansichar(winmessage),'',0);
   FormRec.AddRecord(f_time, CurentLevel);
   loadlevel(NextLevel);
   CalcInter()
  end;
 showWinMassage := false;
 tmpbitmap.Canvas.Brush.Color := form1.Color;   // все закрашиваем
 tmpbitmap.Canvas.Rectangle(0,0,image1.Width,image1.Height);
 for i:= 0 to length(hubarray) - 1 do hubarray[i].Sopr := false;
 for i:= 0 to length(wayarray) - 1 do
  begin
   if selhub >= 0 then
    begin
     if wayarray[i].Hub1 = @hubarray[selhub] then wayarray[i].Hub2.Sopr := true;
     if wayarray[i].Hub2 = @hubarray[selhub] then wayarray[i].Hub1.Sopr := true;
    end;
   if wayarray[i].Intersection then
     tmpbitmap.Canvas.Pen.Color := rgb(200,0,0)
    else
     tmpbitmap.Canvas.Pen.Color := rgb(0,200,0);
   tmpbitmap.Canvas.MoveTo(wayarray[i].hub1.PosX,wayarray[i].hub1.Posy);
   tmpbitmap.Canvas.LineTo(wayarray[i].hub2.PosX,wayarray[i].hub2.Posy);

//   tmpbitmap.Canvas.TextOut(wayarray[i].hub1.PosX + (wayarray[i].hub2.PosX - wayarray[i].hub1.PosX)div 2,
//                            wayarray[i].hub1.Posy + (wayarray[i].hub2.Posy - wayarray[i].hub1.Posy)div 2,
//                            inttostr(i));  // for debug

  end;
 tmpbitmap.Canvas.Pen.Color := 0;
 for i:= 0 to length(hubarray) - 1 do
  begin
   if i = selhub then
     tmpbitmap.Canvas.Brush.Color := rgb(255,0,0)
    else
     if hubarray[i].Sopr then
      tmpbitmap.Canvas.Brush.Color := rgb(251,63,255)
     else
      tmpbitmap.Canvas.Brush.Color := rgb(255,255,255);
   tmpbitmap.Canvas.Ellipse(hubarray[i].PosX-HubSize,hubarray[i].PosY-HubSize,
                            hubarray[i].PosX+HubSize,hubarray[i].PosY+HubSize);

  end;



 image1.canvas.CopyRect(rect(0,0,image1.Width,image1.Height),tmpbitmap.Canvas,rect(0,0,image1.Width,image1.Height));
end;

[Swarog]

ну может вот еще поможет
типы для описания соединения и узла сети

 PHub = ^THub;

 TWay = record
  Hub1, Hub2: PHub;
  Intersection: boolean;
 end;


 THub = record
  PosX, PosY: integer;
  Sopr: boolean;
  WC: byte;
 end;

сама модель представляется двумя массивами

    HubArray: array of THub; // массив точек
    WayArray: array of Tway; // массив путей

вот как то так

[Чай_ник]

Вроде получилось... спасибо)