проблема с использованием функции в проекте Visual Basic, вызываемой из DLL написаной на Delphi5

25.12.2009, 16:25. **Показов** 1317. **Ответов** 3

Author24 — интернет-сервис помощи студентам

Привет!

У меня возникла проблема с использованием функции в проекте Visual Basic, вызываемой из DLL написаной на Delphi5.
Код DLL:

Delphi

library MyDll;
 
uses
  windows,
  SysUtils,
  Classes;
 
function GetString ():string;stdcall;
   begin
     GetString:='Привет!';
   end;
 
  exports
    GetString name 'GetString'
 begin
end.

Код Project (Visual Basic 6):

Visual Basic

' если 
Private Declare Function GetString Lib 'MyDll.dll' () as String ' в этом случае ошибка: 'Неправильно задан параметр'
' или
Private Declare Function GetString Lib 'MyDll.dll' () ' - а в этом случае: 'Variable uses an Automation type not supported in Visual Basic'
 
Private Sub Command_Click()
  
  Dim Str as String
 
  str=GetString()
 
End Sub

Как решить эту проблему, подскажите пожайлуста?

@Willys · 26.12.2009, 02:25

проблема в том, что Delphi имеет свой формат строк, который явно несовместим с VB. плюс ко всему этому, для того, чтобы работать со String в DLL, нужно использовать SharedMem (дельфийский менеджер памяти), а VB его явно не использует.
так что строку String ты не передашь никак. пытайся сделать через PChar.

26.12.2009, 02:41

Сейчас пытаюсь из DLL передать адресс переменной в проект Visual Basic, чтобы далее обработать с помощью API-функции CopyMemory.
Пока безуспешно...

@Gasanov2003 · 27.01.2010, 18:35

Попробуй так
function GetString ():PChar;stdcall;
или
function GetString ():PAnsiChar;stdcall;

@Willys 0 / 0 / 1 Регистрация: 20.05.2008 Сообщений: 26
	26.12.2009, 02:25	2
	проблема в том, что Delphi имеет свой формат строк, который явно несовместим с VB. плюс ко всему этому, для того, чтобы работать со String в DLL, нужно использовать SharedMem (дельфийский менеджер памяти), а VB его явно не использует. так что строку String ты не передашь никак. пытайся сделать через PChar. 0

new_programmer
	26.12.2009, 02:41	3
	Сейчас пытаюсь из DLL передать адресс переменной в проект Visual Basic, чтобы далее обработать с помощью API-функции CopyMemory. Пока безуспешно...

@Gasanov2003 0 / 0 / 0 Регистрация: 26.01.2010 Сообщений: 31
	27.01.2010, 18:35	4
	Попробуй так function GetString ():PChar;stdcall; или function GetString ():PAnsiChar;stdcall; 0