Что-то с DLL

[SeRRg]

У меня есть DLL написанная на Delphi
Вот исходник главного файла:
----------------------------------
library Project2;

uses
Windows,
Messages,
SysUtils,
Classes,
FGInt,
FGIntPrimeGeneration,
StdCtrls;

{$R *.res}
var
p : TFGInt;
st: string;


Function Prostoe (const chislo:string):string; stdcall; export;
begin
Base10StringToFGInt(chislo, p) ;
PrimeSearch(p);
FGIntToBase10String(p, st) ;
Prostoe:=st;
end;

exports
Prostoe;

begin
end.
-------------------------------------
Когда я ее компилирую и делаю DLL все нормально. В Бэйсике я объявляю:
Private Declare Function Prostoe Lib "D:\ïðîãðàììèðîâàíèå\DLL\Project2.dll" (chislo As String) As String

Но когда я запускаю, появляется: "Инструкция по адресу ... обратилась к памяти по адресу ... Память не может быть read"
Если же я использую ее из Delphi то все нормально.
Где я ошибаюсь?

[kif]

может теюе эту функцию на vb нарисовать

[kif]

если для определения простого числа, то попробуй это

Код: Выделить всё

'Определяет является ли число простым
Public Function IsPrime(ByVal P As Long) As Boolean
  Dim Max As Long, F As Long
 
  IsPrime = False
  If P < 2 Then Exit Function
  If ((P And 1) = 0) Then
     IsPrime = (P = 2)
     Exit Function
  End If
  If ((P Mod 3) = 0) Then
     IsPrime = (P = 3)
     Exit Function
  End If
  Max = CLng(Int(Sqr(P)))
  For F = 5 To Max Step 6
      If (((P Mod F) = 0) Or ((P Mod (F + 2)) = 0)) Then Exit Function
  Next
  IsPrime = True
End Function

выдернул с сайта vbnet.com

[SeRRg]

Нет, нет! Мне надо именно определить в чем ошибка в моем коде (я ни разу не писал DLL и поэтому не могу понять где именно ошибка)
К тому же мне надо оформить ее именно в виде Native DLL

2kif
Кстати, твоя функция работает если число Long
А у меня оно гораздо больше.

[GSerg]

Код: Выделить всё

Function Prostoe (const chislo:string):string; stdcall; export

заменить на

Код: Выделить всё

Function Prostoe (const chislo:pAnsiChar):pAnsiChar; stdcall;

В VB написать

Код: Выделить всё

Private Declare Function Prostoe Lib "D:\ïðîãðàììèðîâàíèå\DLL\Project2.dll" (byval chislo As String) As String

[SeRRg]

2GSerg
Спасибо! Только я написал PAnsiString, а не PAnsiChar!

[|kerish|]

Дело закрыто