Pytanie o DLL.

[Rafał Mazur <rafal@zeto.bydgoszcz.pl>]

Witam progress,

Chciałem wykorzystać dll, którego próbuję sam napisać w Delphi.


Dll mi się kompiluje, natomiast Progress przy uruchamianiu wyrzuca
błąd
  Nie można znaleźć punktu startowego dla _sciezka@4. (3260).

Definicja wywołania w Progressie:
Procedure Sciezka External "przyklad.dll".
  Def Input-Output Param IN-OUT_Sciezka as Char.
End.

  
Kod biblioteki DLL wygląda tak

library przyklad;
uses
  katal in 'katal.pas' {Form1};
Procedure sciezka (Var a:PChar); stdcall;
  var
     Sc,Dir : String;
     Dr     : Char;
begin
  Sender := TObject.Create;
  Sc := String(A);
  Form1 := TForm1.Create(NIL);
  If A <> '' then
  Begin
    Try
     Dr := A[1];
     Dir := Copy(Sc,3,Length(Sc) - 3);
     Form1.CDrive.Drive := Dr;
     Form1.DirectoryListBox1.Directory := Sc;
    Except
    End;
    Form1.DirectoryListBox1Change(Sender);
    Form1.showModal;
    Sc := Form1.EPath.Text;
    Form1.destroy;
    a := PChar(Sc);
  End;

end;
exports
sciezka;
{$R *.RES}
begin
end.

Według wszelkich prawideł zawartych w helpie jest to napisane dobrze.

Jesli ktos wie gdzie tkwi błąd to proszę o opis.

  
  

pozdrowienia,
 Rafał               Odpisz na adres: rafal@zeto.bydgoszcz.pl


------
Strona WWW:     http://pluton.pol.lublin.pl/pugpl/index.htm
Obsluga listy:  listserv@zeto.bydgoszcz.pl
Archiwum listy: http://www.zeto.bydgoszcz.pl/progress/index.html
------