вызов функции из dll, написанной на Delphi, из Visual Basic 6.0

← →
KyPCAHT (2005-01-05 08:59) [0]

Здраствуйте ....
Написал dll ку, вот код ...
ibrary RISMap;

uses
ShareMem,
SysUtils,
Classes,
QGraphics,
QExtCtrls,
Graphics,
Jpeg,
ExtCtrls;

{$R *.res}

function RGBToColor(R,G,B:byte): TColor;
begin
Result := B shl 16 or G shl 8 or R;
end;

function CreateMap(Region:string;Path:string;RX:string;RY:string;RCR:string;RCG:string;RCB:string):string;
var i,s: integer;
Image:TBitMap;
jpgImg: TJPEGImage;
RaionX,RaionY:array of integer;
RaionColR,RaionColG,RaionColB:array of byte;
begin
s:=1;
for i:=1 to Length(RX) do
begin
if copy(RX,i,1)="," then
begin
SetLength(RaionX,Length(RaionX)+1);
RaionX[Length(RaionX)-1]:=StrToInt(copy(RX,s,i-s));
s:=i+1;
end;
end;
s:=1;
for i:=1 to Length(RY) do
begin
if copy(RY,i,1)="," then
begin
SetLength(RaionY,Length(RaionY)+1);
RaionY[Length(RaionY)-1]:=StrToInt(copy(RY,s,i-s));
s:=i+1;
end;
end;
s:=1;
for i:=1 to Length(RCR) do
begin
if copy(RCR,i,1)="," then
begin
SetLength(RaionColR,Length(RaionColR)+1);
RaionColR[Length(RaionColR)-1]:=StrToInt(copy(RCR,s,i-s));
s:=i+1;
end;
end;
s:=1;
for i:=1 to Length(RCG) do
begin
if copy(RCG,i,1)="," then
begin
SetLength(RaionColG,Length(RaionColG)+1);
RaionColG[Length(RaionColG)-1]:=StrToInt(copy(RCG,s,i-s));
s:=i+1;
end;
end;
s:=1;
for i:=1 to Length(RCB) do
begin
if copy(RCB,i,1)="," then
begin
SetLength(RaionColB,Length(RaionColB)+1);
RaionColB[Length(RaionColB)-1]:=StrToInt(copy(RCB,s,i-s));
s:=i+1;
end;
end;
//___________________
Image:=TBitMap.Create;
Image.LoadFromFile(Region);
for i:=0 to Length(RaionX)-1 do
begin
Image.Canvas.Brush.Color:=RGBToColor(RaionColR[i],RaionColG[i],RaionColB[i]);
Image.Canvas.FloodFill(RaionX[i],RaionY[i],65280,fsSurface);
end;
Randomize;
Result:=Path;
for i:=1 to 10 do Result:=Result + IntToStr(Trunc(Random(9)));
Result:=Result + ".jpg";
jpgImg := TJPEGImage.Create;
jpgImg.Assign(Image);
jpgImg.SaveToFile(Result);
end;

exports CreateMap;

begin
end.

Ни чего хитрого или замысловатого ....
Но когда я ее объявляю в VB, вот код ...

Private Declare Function CreateMap Lib "D:\temp\RISMap.dll" (ByVal Region As String, ByVal Path As String, ByVal RX As String, ByVal RY As String, ByVal RCR As String, ByVal RCG As String, ByVal RCB As String) As String

Public Function OpenMap(Region As String, Path As String, RX As String, RY As String, RCR As String, RCG As String, RCB As String) As String
OpenMap = CreateMap(Region, Path, RX, RY, RCR, RCG, RCB)
End Function

Private Sub Form_Load()
Label1.Caption = OpenMap("D:\Progr_Progi\#RIS\map\pic\66.bmp", "c:\", "166,127,238,178,120,", "141,141,188,197,182,", "0,63,127,191,255,", "0,63,127,191,255,", "0,63,127,191,255,")
End Sub

Басик мне говорит:"Инструкция по адресу X обратилась к памяти по адресу Y. Память не может быть "written". А потом сразу и "read".

Подскажите знающие, как их подружить ...

Заранее спасибо ..

← →
KSergey © (2005-01-05 10:32) [1]

> Ни чего хитрого или замысловатого ....

Ошибаетесь.

uses
ShareMem,
..
function CreateMap(Region:string;Path:string;RX:string;RY:string;RCR:string;RCG:string;RCB:string):string;

VB понятия не имеет про ShareMem. Эта плюха только для дельфи. Возможно - C++ Builder умеет.

Так что либо используйте WideString (какой ответный тип для VB - не знаю. Либо как и всегда - возвращайте не строку, а в параметрах передавайте указатель на буфер, выделяемый и освобождаемый хост приложением, а в DLL - передавать указатель на буфер и его размер. (см. почти любую ф-цию WinAPI для примера)

← →
KSergey © (2005-01-05 10:50) [2]

Да, параметров String это тоже касается
Вместо них вполне можно обойтись передачей указателя
Для дельфи - PChar

← →
GuAV © (2005-01-05 10:59) [3]

vb использует stdcall.
Про ShareMem и строку в результатае уже сказали.
В качестве параметров PChar в dll и string в vb - прокатит.

← →
KyPCAHT (2005-01-08 09:28) [4]

Спасиб.

вызов функции из dll, написанной на Delphi, из Visual Basic 6.0 Найти похожие ветки