Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

Использывание массивов Visual Basic в Delphi

Delphi , Файловая система , DLL и PlugIns

Использывание массивов Visual Basic в Delphi

VB подключение модуля:
Code:
Attribute VB_Name = "Module1"
Declare Function TestMin Lib "c:\windows\system\NoelSArr"
  (Nums As Variant) As Integer
 
VB использывание:
Code:
Dim A As Variant
Private Sub Command1_Click()
A = Array(4, 3)
MsgBox (TestMin(A))
End Sub
 
 
Delphi код DLL:
 
Code:
library NoelSArray;
.
.
function TestMin(const Nums: Variant): integer; export; stdcall;
var
p1: Variant;
begin
p1 := VarArrayCreate([0, 1], VT_I4);
p1:= Nums;
if (p1[0] < p1[1]) then
  result:= p1[0]
else
  Result:= p1[1];
end;
 

Статья Использывание массивов Visual Basic в Delphi раздела Файловая система DLL и PlugIns может быть полезна для разработчиков на Delphi и FreePascal.


Комментарии и вопросы


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




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



:: Главная :: DLL и PlugIns ::


реклама



©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100
29.03.2024 12:09:47/0.032999038696289/0