| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Delphi DLL и Excel [D7, WinXP]

NovaPS ©   (2004-12-01 16:40:00) 

Есть простенький код на Delphi, который компилится в DLL:


library ExcelDLL;

uses
 ShareMem, SysUtils, Classes;

function showMeText (Str1:String): String; stdcall;
begin
 Result := Str1 + ' str2';
end;

exports
 showMeText index 1 name 'showMeText';

begin
end.


и код на VB в Excel-e:


Private Declare Function showMeText Lib "C:\Temp\ExcelDLL.dll" (ByVal S As String) As String

Sub CreateListFile()

Dim a_text As String

a_text = showMeText("AAA")

MsgBox a_text

End Sub


При запуске скрипта Excel вылетает.

Подскажите пожалуйста, что не так?

---

NovaPS   (2004-12-01 17:49:00) [1]

Попробовал...но работать отказывается.

---

NovaPS   (2004-12-01 17:33:00) [2]

Большое спасибо.

---

Digitman   (2004-12-01 17:18:00) [3]

вот пример концептуального решения задачи:

library ExcelDLL;

uses
ShareMem, SysUtils, Classes;

procedure showMeText (Param:PChar; Result: PChar); stdcall;
var
tmp: String;
begin
tmp := StrPas(Param) + 'BB'; //результат длиной не более 4-х символов
strcopy(Result, PChar(tmp));
end;

exports
showMeText index 1 name 'showMeText';

begin
end.

и код на VB в Excel-e:

Private Declare Sub showMeText Lib "C:\Temp\ExcelDLL.dll" (ByRef S As String, ByRef RsltStr As String)

..

Dim a_text As String
Dim Result as String

Result = "    " //готовим память под результ.строку длиной 4 символа

showMeText("AA", Result) //передаем адрес исх.строки-параметра и адрес строки, куда будет записан результат доиной не более 4 символа

MsgBox Result

---

Digitman   (2004-12-01 17:08:00) [4]

> NovaPS ©   (01.12.04 17:01) [4]
> Я в этом не разбираюсь.


ну и плохо.
плохо именно то, что ты взялся за решение задачи, в технологии/механизмах которой ничерта не смыслишь пока еще.

передача строковых параметров между VBA-кодом и Паскаль-кодом должна осуществлятьчся не иначе как  с пом. PChar-указателей.

передача строковых параметров VBA -> Pas таким образом не вызывает никаких проблем, достаточно в VBA-коде декларировать такие параметры как ByRef .. а вот с возвратом результата Pas  -> VBA дело обстоит сложнее, особенно когда длина строкового рез-та, формируемого в теле Pas-Ф-ции, заранее неизвестна.

---

NovaPS   (2004-12-01 17:01:00) [5]

>  чего ты вообще взял, что VBA-тип STRING совместим с Паскаль-типом
> STRING ?


Я в этом не разбираюсь.
Мне надо чтобы DLL получила некую строку с данными, далее по ФТП загрузила данные, а потом отправила в Excel.

Подскажите как привильно написать код.

---

Digitman   (2004-12-01 16:54:00) [6]

> Devel ©   (01.12.04 16:47) [1]
> dlea vzaimodistvia Delphi + VB lushe ispol'zovat' OleVariant


ерунда полная.

---

Digitman   (2004-12-01 16:51:00) [7]

> Excel вылетает


рейсом на г.Задрипинск ?

с чего ты вообще взял, что VBA-тип STRING совместим с Паскаль-типом STRING ?

---

Devel   (2004-12-01 16:47:00) [8]

dlea vzaimodistvia Delphi + VB lushe ispol'zovat' OleVariant

---

Наверх