Обмен данными между DLL и программой

[Шульц]

1. Как передать в процедуру\функцию DLL значение строковой переменной из программы?
2. Как забрать из DLL StringList в программу?

[spamer]

1) Как обычный параметр в функции/процедуре. Только если будешь использовать string, то надо в модуль приложения и dll добавить в uses : ShareMem. Но лучше юзай другой тип, например PChar или Char.
p.s. ShareMem - Должен стоять первым в списке Uses
2) Сделай функцию которая будет возвращать TStringList в твою программу.

[Шульц]

То есть так получится?

myfunc(var s:String):StringList;

[spamer]

Ну как я уже сказал, лучше String не юзать, т.к. для этого необходимо еще подключать ShareMem.
з.ы. и возвращать должно TStringList;

[Шульц]

Хорошо, спасибо, все понял Поюзаю PChar)

[Шульц]

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

Код вызова

procedure TMainForm.ExecuteDefinitionRangeIPAddresses;
type
  TRangeIP=function (var s,s1:String):TStringList;
var
DLLInstance : THandle;
RangeIP: TRangeIP;
s2,s3:String;
begin
s2:=IPAdresCB.Text;
s3:=MaskEdit.Text;
DLLInstance := LoadLibrary(PChar(ExtractFileDir(ParamStr(0))+'\Data\Definition\DefinitionRangeIPAddresses.dll'));
if DLLInstance = 0 then
 begin
  MessageDlg('Íåâîçìîæíî çàãðóçèòü DLL!', mtError, [mbOK], 0);
  Exit;
 end;
@RangeIP := GetProcAddress(DLLInstance, 'RangeIPAddresses');
if @RangeIP <> nil then
 RangesIpForm.RangesIpCLB.Items:=RangeIP(s2,s3)
else
 MessageDlg('Íå íàéäåíà èñêîìàÿ ïðîöåäóðà!', mtError, [mbOK], 0);
FreeLibrary(DLLInstance);
end;

Код библиотеки:

library DefinitionRangeIPAddresses;

uses
  ShareMem,SysUtils,Classes,winsock2_light, WinSock;

{$R *.res}

function RangeIPAddresses(var s,s1:string):TStringList;
type TIP = record
  case integer of
    1: (b1, b2,b3,b4: byte);
    2: (dw: DWORD);
end;
const
Mask:Array [1..32] of string=('255.255.255.254','255.255.255.252',
'255.255.255.248','255.255.255.240','255.255.255.224','255.255.255.192',
'255.255.255.128','255.255.255.0','255.255.254.0','255.255.252.0',
'255.255.248.0','255.255.240.0','255.255.224.0','255.255.192.0','255.255.128.0',
'255.255.0.0','255.254.0.0','255.252.0.0','255.248.0.0','255.240.0.0',
'255.224.0.0','255.192.0.0','255.128.0.0','255.0.0.0','254.0.0.0','252.0.0.0',
'248.0.0.0','240.0.0.0','224.0.0.0','192.0.0.0','128.0.0.0','0.0.0.0');
AmountOfRangesIpAdres:array [1..32] of integer=(128,64,32,16,8,4,2,1,128,64,32,
16,8,4,2,1,128,64,32,16,8,4,2,1,128,64,32,16,8,4,2,1);
var
MyMask,ByteForComp,MyIPAdres:String;
i,k,j,l,g,be,en,f,m,n:integer;
b:boolean;
wsdat: TWSADATA;
IP1: TIP;
begin
WSASTARTUP(WINSOCK_VERSION, wsdat);
ip1.dw := inet_addr(PChar(s));
MyIPAdres:=s;
b:=false;
i:=1;
j:=0;
l:=0;

MyMask:=s1;
while b=False do
 begin
  if MyMask=Mask[i] then
   begin
    k:=i;
    b:=true;
   end;
  i:=i+1;
 end;

b:=false;
i:=1;

case k of
 1,2,3,4,5,6,7,8:
  begin
   ByteForComp:=InttoStr(ip1.b4);
   l:=1;
  end;
 9,10,11,12,13,14,15,16:
  begin
   ByteForComp:=InttoStr(ip1.b3);
   l:=2;
  end;
 17,18,19,20,21,22,23,24:
  begin
   ByteForComp:=InttoStr(ip1.b2);
   l:=3;
  end;
 25,26,27,28,29,30,31,32:
  begin
   ByteForComp:=InttoStr(ip1.b1);
   l:=4;
  end;
end;

f:=strtoint(floattostr(256/AmountOfRangesIpAdres[k]));

for i:=1 to AmountOfRangesIpAdres[k] do
 begin
  if i=1 then
   g:=0
  else
   g:=g+f;
  for j:=1 to f do
   begin
    if strtoint(ByteForComp)=g+j then
     begin
      be:=g;
      en:=g+f-1;
     end;
   end;
 end;

Result.Clear;

case l of
 1:
  begin
   for i:=be to en do
    begin
     Result.Add(inttostr(IP1.b1)+'.'+inttostr(IP1.b2)+'.'+inttostr(IP1.b3)+'.'+inttostr(i));
    end;
  end;
 2:
  begin
   for i:=be to en do
    begin
     for j:=0 to 255 do
     begin
        Result.Add(inttostr(IP1.b1)+'.'+inttostr(IP1.b2)+'.'+inttostr(i)+'.'+inttostr(j));
       end;
    end;
  end;
 3:
  begin
   for i:=be to en do
    begin
     for j:=0 to 255 do
      for m:=0 to 255 do
       begin
        Result.Add(inttostr(IP1.b1)+'.'+inttostr(i)+'.'+inttostr(j)+'.'+inttostr(m));
       end;
    end;
  end;
 4:
  begin
   for i:=be to en do
    begin
     for j:=0 to 255 do
      for m:=0 to 255 do
       for n:=0 to 255 do
        begin
        Result.Add(inttostr(i)+'.'+inttostr(j)+'.'+inttostr(m)+'.'+inttostr(n));
        end;
    end;
  end;
end;

end;   

exports
  RangeIPAddresses;
    
begin  
end.

Ошибка возникает на этой строчке:

RangesIpForm.RangesIpCLB.Items:=RangeIP(s2,s3)

[Шульц]

Неужели никто не поможет?

[spamer]

Шульц, что хоть за ошибка? Отобразите ее тут.

[Шульц]

Ошибка чтения из памяти. Скрин во вложенный файл закинул.