谁能给个 VC 调用 Delphi 开发的DLL 的例子(249分)

fz97535 · 2003-04-30

不胜感谢 谁能给个 VC 调用 Delphi 开发的DLL 的例子 实在找不到  给 VC 调用调用任何 DLL的列子都行

fz97535 · 2003-04-30

JLSoft2000@163.com 不胜感谢

cwmdelpher · 2003-04-30

#ifdef IMPAPI #define DLLAPI __declspec(dllexport) #else #define DLLAPI __declspec(dllexport) #endif ... class ABC {    ...    DLLAPI void Test();    ... }; 如果想全部输出 class DLL ABC { }; 我特别建议使用后者并实现类自己的new,delete,new[],delete[], 原因是C runtime library(.lib)在.EXE和.DLL是两个实例。 这也是COM/OLE为何用自己的管理机制的根本原因。

cwmdelpher · 2003-04-30

假设：delphi动态库实现一个add(x,y)从x加到y，步长为1。 function add(x:UINT; y:UINT):UINT; cdecl export; var     i : UINT; begin     result := 0;     for i := x to y do         result := result + i; end; Exports     add; 这里用VC++6.0调用： #include <windows.h> #include <iostream.h> HINSTANCE gLibCaculate = NULL; typedef UINT (*ADD)(UINT x, UINT y); ADD add; void main() { // 装载动态库 gLibCaculate = LoadLibrary("Project2.dll"); if (gLibCaculate == NULL) { cout << "装载动态库Project2.dll失败!" << endl; return; } //返回DLL中add()函数的地址 add = (ADD)GetProcAddress(HMODULE(gLibCaculate),"add"); if (FARPROC(add) == FARPROC(NULL)) { cout << "动态库Project2.dll没有add()函数!" << endl; } else { cout << " add from 1 to 100 is " << add(1, 100) << endl; } // 释放动态库 FreeLibrary(gLibCaculate); }

cwmdelpher · 2003-04-30

这是收藏的一个贴子： 问题：delphi写的dll在vc++中调用问题 ( 积分：150, 回复：11, 阅读：134 ) 分类：混合语言编程 ( 版主：shyjun, cAkk )   来自：alvinlv, 时间：2000-10-19 13:20:00, ID：370025 [显示：小字体 | 大字体]   我用delphi写了个dll: function SaveBFile( sReceiver, sFileName : PChar;                        Var Buffer; iBufLen : Integer ) : Integer; stdcall; 用deiphi 写的程序调用这个dll没有问题。可是vc++调用时， 系统提示：The value of ESP was not propely saved across a function call. vc++ *.h: int ( * savebfile ) ( char * sRec,     char * sFileName,     char * sCon,     int len); *.cpp:   hDll = LoadLibrary(dllname);   if (hDll != NULL) {     savebfile = ( int (*) ( char *,  char *,        char *,  int) ) GetProcAddress(hDll,"SaveBFile");    ( * savebfile ) ("2000000001", "kk.txt", "kklf", 12);   } 虽然发生错误，但dll的功能却执行完了。 个人怀疑是由于buffer 参数传递的问题. 请教各位大侠错误的原因，及如何才能正确调用？     来自：温柔一刀, 时间：2000-10-20 3:59:00, ID：370302 你在delphi中声明为stdcall，则在 VC++中必须也声明为 stdcall;（C/C++缺省是 cdecl） 这两者的区别就在于参数堆栈由谁来清理，因此功能可以正常实现，但返回后就出现你所遇到的错误。     来自：alvinlv, 时间：2000-10-21 14:44:00, ID：371897 c ++ 声明 stdcall 应该写在那里？ 另外，我用delphi 写的程序调用delphi 写的 dll时，程序退出时，系统告诉我 非法操作，如果在nt 机器上，系统喇叭会发出一声响。怪。     来自：温柔一刀, 时间：2000-10-21 18:37:00, ID：372054 >>c ++ 声明 stdcall 应该写在那里？ 比如： int __stdcall ( * savebfile ) ( char * sRec,    char * sFileName,    char * sCon,    int len); 大致如此吧，很久没用了。 >>另外，我用delphi 写的程序调用delphi 写的 dll时，程序退出时， >>系统告诉我非法操作，如果在nt 机器上，系统喇叭会发出一声响。怪。 慢慢调吧，也许也有类似问题

来自：alvinlv, 时间：2000-10-22 19:52:00, ID：372757 呵呵。温柔一刀你这150分来的可真容易啊。（其实是我好心痛！）     来自：温柔一刀, 时间：2000-10-22 20:30:00, ID：372790 对不起，是心情不太好，太忙了，明天开始估计很少来了， 贴子我改掉，反正牢骚已经发完了，唉！...     来自：wjiachun, 时间：2000-10-22 20:16:00, ID：372793 温柔一刀，算了算了，是不是心情不好？想来这位是想开玩笑结果方式不对罢了。     来自：only you, 时间：2000-10-22 21:12:00, ID：372863 什么乱七八糟的，怎么不懂上面两位的话！！！心情不好与这个问题有何关系？     来自：wjiachun, 时间：2000-10-22 21:16:00, ID：372864 only you 看不懂，我们都明白 ;-)     来自：only you, 时间：2000-10-22 21:34:00, ID：372875 那你告诉我啊！你不说我怎么知道？     来自：alvinlv, 时间：2000-11-22 14:03:00, ID：400926 接受答案了.     得分大富翁：温柔一刀

Cardinal · 2003-04-30

呵呵 来迟了GZ

fz97535 · 2003-04-30

谁还有在给点详细点的表注 最好给例子

driver · 2003-04-30

在Delphi中，只要声明为stdcall导出就可以了，调用方式没有什么特别的。

Camel_bbs · 2003-04-30

在VC里用DELPHI的DLL是很困难的，真的不知道为什么VC还要一个什么LIB文件， 我开始以为VC和DELPHI一样，用一个DLL，用一个头文件就可以了，谁知不行， 如果你不想中间转过来转过去的话，可以看看下面的代码。。。。。。 我的一个项目中的。[

]希望对你有点用。 HINSTANCE hDYBInst; char * const YbImeProcess = "YbImeProcess.DLL"; BOOL InitDLibrary() { hDYBInst = LoadLibrary(YbImeProcess); if(hDYBInst) { TestMessage = (PTestMessage)GetProcAddress(hDYBInst, "TestMessage"); TestMessage(); return TRUE; } else { return FALSE; } } BOOL FreeDLibrary() { FreeLibrary(hDYBInst); return TRUE; }

小笨苯 · 2003-04-30

在Delphi和VC中创建和调用动态链接库(1)(2)(3)(4) http://www.qcsky.com/school/3j.asp?Unid=9&Ncl=17

叶不归 · 2003-04-30

学习

吕雪松 · 2003-04-30

给你一下吧，DLL在delphi中写，调用在VC中。 library BuildYard; { Important note about DLL memory management: ShareMem must be the   first unit in your library's USES clause AND your project's (select   Project-View Source) USES clause if your DLL exports any procedures or   functions that pass strings as parameters or function results. This   applies to all strings passed to and from your DLL--even those that   are nested in records and classes. ShareMem is the interface unit to   the BORLNDMM.DLL shared memory manager, which must be deployed along   with your DLL. To avoid using BORLNDMM.DLL, pass string information   using PChar or ShortString parameters. } uses   SysUtils,  Classes,Math; type   TGeoPt = record   dX,dY,dZ : double;   end;   TRefPt = record   Origin : TGeoPt;   X_Axe,Y_Axe : TGeoPt;     ATN : double; //angle relative to north   end;   TBlock = class;   TStack = class;   TGeoRectEx = record   LeftTop,RightTop,RightBottom,LeftBottom : TGeoPt;   end;   //码头，可以包含多个Terminal   TYard = class   sDate : array [0..15] of Char; //时间     nTrackWidth : integer; //精确到毫米     nLaneWidth : integer; //毫米   TerminalList : TList;     LaneDefList : TList; //代表的是Yard中的所有LaneDef类型     constructor Create;     destructor Destroy;override;     procedure MatchLDI(Stack : TStack);   end;   TTerminal = class sCoor : string; //坐标系统定义，如'HK80'     sName : array[0..1] of Char; // 'T7'   ID : Word;   BlockList : TList;     TerminalRect : TGeoRectEx;     RefPt : TRefPt; constructor Create;     destructor Destroy;override;     function FindBlock(Block : TBlock) : TBlock;     function GetBlock(sKey : string) : TBlock;     function GetBlockSize : integer;   end;   TGeoRect = record   Left,Top,Right,Bottom : Integer;   end;   TRec = class(TObject)    Rect : TGeoRect;    Name : array[0..7] of Char;    YardMapId : Word;    Atl : Byte;    Size : Word;    StackID : string;   end;   TLaneDef = class;   TStack = class(TObject)   Rect : TGeoRect;   ID : array[0..3] of Char;     RecList : TList;     MinX,MaxX : LongWord;     nSpread : integer;     LDI : integer; //Lane Definition Indicator LaneDef : TLaneDef;     constructor Create;     destructor Destroy;override;     procedure CalcRect;   end;   TLaneDef = class     LDI : integer;     LaneList : TList;     constructor Create;     destructor Destroy;override;   end;   TLane = class     Name : array[0..9] of Char;     MinY,MaxY : double; TLD : Byte;   end;   TBlock = class(TObject)   public   ID : array[0..3] of Char; nTrackLane : integer;   StackList : TList;     Rect : TGeoRect; //第一版参数，第二版中已经不用 nRecCount : integer; StackIndexList : TList;   constructor Create;     destructor Destroy;override;     procedure CalcRect;     //本Block中所有记录     function GetRecCount : integer;     function FindRec(Rec : TRec) : TStack;     function FindStack(Stack : TStack) : TStack;     function GetInvalidLaneCount : integer;   end; {$R *.res} const LANE_COUNT = 7; const DATA_FILE_HEAD_SIZE = 16; //数据文件头部长度 const INDEX_FILE_HEAD_SIZE = 78; //索引文件的头部长度 var MapVer : array[0..15] of Char;     Yard : TYard; //计算从X1,Y1到NX,NY的方向，X1,Y1一定为第一点} function GetAngle(X1,Y1,NX,NY : double)

ouble; var BufLen,Direction : Double; begin BufLen := Sqrt(Sqr(X1-NX)+Sqr(Y1-NY)); if (Abs(NX-X1)< 10e-300) then begin if (Abs(Y1-NY)< 10e-300) then begin //等于没有移动} end          else begin if (Y1-NY)>0 then Direction := PI/2 else Direction := 3*PI/2; end;     end     else begin     if ArcTan((Y1-NY)/(NX-X1))>0 then begin if (Sin((Y1-NY)/BufLen)>0) then Direction := ArcTan((Y1-NY)/(NX-X1))               else Direction := ArcTan((Y1-NY)/(NX-X1))+PI;          end          else begin           if (Sin((Y1-NY)/BufLen)>0) then Direction := ArcTan((Y1-NY)/(NX-X1))+PI else begin Direction := ArcTan((Y1-NY)/(NX-X1));                    if (Direction = 0) and (X1 > NX) then Direction := PI;               end; end; end;     Direction := - Direction;     if Direction < 0 then Direction := 2 * PI + Direction;     Result :=  Direction; end; function GetStrItem(SourStr : string;Border : Char;Index : integer):string; var TempStr : string;     I : integer; begin TempStr := SourStr; if Pos(Border,SourStr)=0 then Result := ''     else begin     try     for I := 1 to Index - 1 do begin               if Pos(Border,TempStr) = 0 then begin                     Result := '';                         Exit; end;               Delete(TempStr,1,Pos(Border,TempStr));                    TempStr := Trim(TempStr);               end; except               result := '';               Exit;          end;          if Pos(Border,TempStr)=0 then           Result := TempStr          else Result := Copy(TempStr,1,Pos(Border,TempStr) - 1);     end; end; function GetDMSR(sBuf : string) : Double; begin     result := result + StrToFloat(GetStrItem(sBuf,'D',1));     Delete(sBuf,1, Pos('D',sBuf));     if Pos('M', sBuf) > 0 then begin     result := result + StrToFloat(GetStrItem(sBuf, 'M',1))/60;         Delete(sBuf,1, Pos('M',sBuf));     end;     if Pos('S', sBuf) > 0 then begin     result := result + StrToFloat(GetStrItem(sBuf,'S',1))/60/60;         Delete(sBuf,1, Pos('S',sBuf));     end; end; //写数据文件 procedure WriteRecFileEx(FileName: string); var F : File;     I, J, K, L, nBuf : integer; uBuf8 : Byte;     uBuf16 : Word;     uBuf32 : LongWord;     Block : TBlock;     Lane : TLane;     Stack : TStack;     dAngle : double;     Terminal : TTerminal; begin AssignFile(F,FileName);     Rewrite(F,1);     //写文件头     uBuf32 := 0;     for I := 0 to Yard.TerminalList.Count - 1 do begin     Terminal := TTerminal(Yard.TerminalList.Items);         for J := 0 to Terminal.BlockList.Count - 1 do begin         Block := TBlock(Terminal.BlockList.Items[J]);             for K := 0 to Block.StackList.Count - 1 do begin             Stack := TStack(Block.StackList.Items[K]);                 if Assigned(Stack.LaneDef) then begin                 if Stack.LaneDef.LDI <> 0 then begin                     Inc(uBuf32, Stack.LaneDef.LaneList.Count);                     end;                 end;             end;         end;     end;     BlockWrite(F,uBuf32,SizeOf(LongWord)); //reccount     nBuf := 2;     BlockWrite(F,nBuf,SizeOf(LongWord)); //版本2     BlockWrite(F,Yard.sDate,16);     nBuf := 0;     BlockWrite(F,nBuf,64);     //写Terminal     for I := 0 to Yard.TerminalList.Count - 1 do begin     Terminal := TTerminal(Yard.TerminalList.Items);         for J := 0 to Terminal.BlockList.Count - 1 do begin         Block := TBlock(Terminal.BlockList.Items[J]);             for K := 0 to Block.StackList.Count - 1 do begin             Stack := TStack(Block.StackList.Items[K]);                 if Assigned(Stack.LaneDef) and (Stack.LaneDef.LDI <> 0) then begin for L := 0 to Stack.LaneDef.LaneList.Count - 1 do begin                     Lane := TLane(Stack.LaneDef.LaneList.Items[L]);                         uBuf32 := Trunc(Lane.MaxY * 1000);                         BlockWrite(F, uBuf32, SizeOf(LongWord));                         uBuf32 := Trunc(Lane.MinY * 1000);                         BlockWrite(F, uBuf32, SizeOf(LongWord)); if Pos('LANE', UpperCase(String(Lane.Name))) > 0 then                        uBuf16 := StrToInt(Copy(String(Lane.Name),5, Length(String(Lane.Name)) - 1))                         else                        uBuf16 := 10; //表示是错误的ID                         BlockWrite(F, uBuf16, SizeOf(WORD));                     end;                 end;             end;         end;     end;     CloseFile(F); end; //写索引文件 //写索引文件 procedure WriteIndexFileEx(FileName: string); var I, J, K, nBuf: integer;     uBuf32 : LongWord;     uBuf16 : Word;     Buf8 : Byte;     F : File;     Block : TBlock;     Stack : TStack;     dAngle : Double;     Terminal : TTerminal;     nAccuBlockBytes : LongWORD; //Block的编移     nAccuLaneBytes : LongWORD; //累计的Lane偏移     nAccuStackBytes : LongWORD; //累计的Stack偏移 begin AssignFile(F,FileName);     Rewrite(F,1);     //写头文件     uBuf32 := 0;     for I := 0 to Yard.TerminalList.Count - 1 do begin     Terminal := TTerminal(Yard.TerminalList.Items);         Inc(uBuf32, Terminal.BlockList.Count);     end;     BlockWrite(F, uBuf32, SizeOf(LongWord));     uBuf32 := 2;     BlockWrite(F, uBuf32, SizeOf(LongWord)); //Version = 2     BlockWrite(F, Yard.sDate, 16);     BlockWrite(F, Yard.TerminalList.count, SizeOf(WORD));     uBuf32 := 0;     BlockWrite(F, uBuf32, SizeOf(WORD)); //新加的     BlockWrite(F, Yard.nTrackWidth, SizeOf(LongWord));     BlockWrite(F, Yard.nLaneWidth, SizeOf(LongWord));     Buf8 := 0;     BlockWrite(F, Buf8, 52);     //写入所有Terminal的所有Block     nAccuBlockBytes := 0;     for I := 0 to Yard.TerminalList.Count - 1 do begin     Terminal := TTerminal(Yard.TerminalList.Items);         BlockWrite(F,Terminal.BlockList.Count, SizeOf(Word)); //该Yard中的Block数目         BlockWrite(F, nAccuBlockBytes, SizeOf(Word)); //Block起始索引         BlockWrite(F, Terminal.sName,2); //YardMap ID         nBuf := 0;         if Terminal.sCoor = 'WGS84' then nBuf := 1         else if Terminal.sCoor = 'BJ54' then nBuf := 2         else if Terminal.sCoor = 'HKG80' then nBuf := 3;         BlockWrite(F,nBuf,SizeOf(WORD)); //wFormat         BlockWrite(F, Terminal.RefPt.Origin.dX, SizeOf(Double));         BlockWrite(F, Terminal.RefPt.Origin.dY, SizeOf(Double));         if (Terminal.sCoor = 'WGS84') then begin             dAngle := GetAngle(Terminal.RefPt.Origin.dY, Terminal.RefPt.Origin.dX, Terminal.RefPt.X_Axe.dY, Terminal.RefPt.X_Axe.dX);             BlockWrite(F, dAngle, SizeOf(Double)); //X轴的夹角             dAngle := GetAngle(Terminal.RefPt.Origin.dY, Terminal.RefPt.Origin.dX, Terminal.RefPt.Y_Axe.dY, Terminal.RefPt.Y_Axe.dX) - PI/2;             BlockWrite(F, dAngle, SizeOf(Double)); //Y轴的夹角         end         else if (Terminal.sCoor = 'BJ54') or (Terminal.sCoor = 'HKG80') then begin             dAngle := GetAngle(Terminal.RefPt.Origin.dX, Terminal.RefPt.Origin.dY, Terminal.RefPt.X_Axe.dX, Terminal.RefPt.X_Axe.dY);             BlockWrite(F, dAngle, SizeOf(Double)); //X轴的夹角             dAngle := GetAngle(Terminal.RefPt.Origin.dX, Terminal.RefPt.Origin.dY, Terminal.RefPt.Y_Axe.dX, Terminal.RefPt.Y_Axe.dY) - PI/2;             BlockWrite(F, dAngle, SizeOf(Double)); //Y轴的夹角         end;         BlockWrite(F, Terminal.TerminalRect.LeftTop.dX,SizeOf(Double));         BlockWrite(F, Terminal.TerminalRect.LeftTop.dY,SizeOf(Double));         BlockWrite(F, Terminal.TerminalRect.RightTop.dX,SizeOf(Double));         BlockWrite(F, Terminal.TerminalRect.RightTop.dY,SizeOf(Double));         BlockWrite(F, Terminal.TerminalRect.RightBottom.dX,SizeOf(Double));         BlockWrite(F, Terminal.TerminalRect.RightBottom.dY,SizeOf(Double));         BlockWrite(F, Terminal.TerminalRect.LeftBottom.dX,SizeOf(Double));         BlockWrite(F, Terminal.TerminalRect.LeftBottom.dY,SizeOf(Double));         Inc(nAccuBlockBytes, Terminal.BlockList.Count);     end;     //以下写Block信息 nAccuLaneBytes := 0;         for I := 0 to Yard.TerminalList.Count - 1 do begin     Terminal := TTerminal(Yard.TerminalList.Items);         //写Block         for J := 0 to Terminal.BlockList.Count - 1 do begin         Block := TBlock(Terminal.BlockList.Items[J]);             BlockWrite(F, Block.Rect.Right,SizeOf(LongWord));             BlockWrite(F, Block.Rect.Left,SizeOf(LongWord));             BlockWrite(F, Block.Rect.Bottom,SizeOf(LongWord));             BlockWrite(F, Block.Rect.Top,SizeOf(LongWord));             //Lane在数据文件中的起始索引             uBuf32 := Block.GetInvalidLaneCount;             if (uBuf32 > 0) then begin            BlockWrite(F, nAccuLaneBytes, SizeOf(LongWord));                 Inc(nAccuLaneBytes, uBuf32); BlockWrite(F, uBuf32, SizeOf(LongWord));             end             else begin             //规则Block             BlockWrite(F, uBuf32, SizeOf(LONGWORD));             BlockWrite(F, uBuf32, SizeOf(LONGWORD));             end;             BlockWrite(F, Block.ID, 4);             //写Stack 索引             BlockWrite(F, nAccuStackBytes, SizeOf(LongWord));             BlockWrite(F, Block.StackList.Count, SizeOf(Word));             Inc(nAccuStackBytes, Block.StackList.Count); //16为StackIndex结构的长度             BlockWrite(F, Block.nTrackLane, SizeOf(Word)); //大车道方向 end;     end;     //以下写Stack记录     nAccuLaneBytes := 0;     for I := 0 to Yard.TerminalList.Count - 1 do begin     Terminal := TTerminal(Yard.TerminalList.Items);         for J := 0 to Terminal.BlockList.Count - 1 do begin         Block := TBlock(Terminal.BlockList.Items[J]); //写Stack             for K := 0 to Block.StackList.Count - 1 do begin             Stack := TStack(Block.StackList.Items[K]);                 BlockWrite(F, Stack.MaxX, SizeOf(LongWord));                 BlockWrite(F, Stack.MinX, SizeOf(LongWord));                 BlockWrite(F, Stack.ID,4);                 if Stack.LDI <> 0 then begin                 BlockWrite(F, nAccuLaneBytes, SizeOf(WORD)); BlockWrite(F, Stack.LaneDef.LaneList.Count, SizeOf(Word));                     Inc(nAccuLaneBytes, Stack.LaneDef.LaneList.Count); //LaneLocation的尺寸                 end                 else begin                     uBuf16 := 0;                 BlockWrite(F, uBuf16, SizeOf(WORD));                 BlockWrite(F, uBuf16, SizeOf(WORD));                 end;             end;         end;     end;     CloseFile(F); end; procedure TBlock.CalcRect; var I : integer; Stack : TStack; begin     Rect.Left := MaxInt;     Rect.Right := Low(Integer);     Rect.Top := MaxInt;     Rect.Bottom := Low(Integer);     for I := 0 to StackList.Count - 1 do begin     Stack := TStack(StackList.Items);     Inc(nRecCount,Stack.RecList.Count);          if Stack.Rect.left < Rect.Left then Rect.Left := Stack.Rect.Left;          if Stack.Rect.Right > Rect.Right then Rect.Right := Stack.Rect.Right;          if Stack.Rect.Top < Rect.Top then Rect.Top := Stack.Rect.Top;          if Stack.Rect.Bottom > Rect.Bottom then Rect.Bottom := Stack.Rect.Bottom;     end; end; constructor TBlock.Create; begin StackList := TList.Create; StackIndexList := TList.Create; end; destructor TBlock.Destroy; var I : integer; begin for I := 0 to StackList.Count - 1 do begin TStack(StackList).Free;     end;     StackList.Free;     for I := 0 to StackIndexList.Count - 1 do begin     FreeMem(StackIndexList.Items,SizeOf(Integer));     end; StackIndexList.Free;   inherited; end; procedure Process(FileName: string); var InF : TextFile;     Buf : string; Block : TBlock; Rec : TRec;     CurYardID : integer;     CurStackID : string;     pStackIndex : PInteger;     Stack : TStack;     I, J, K : integer;     Terminal : TTerminal;     LaneDef : TLaneDef;     Lane : TLane; begin AssignFile(Inf,FileName);     Reset(InF);     Block := nil;     Stack := nil; Terminal := nil;     Yard := TYard.Create;     while not Eof(InF) do begin     ReadLn(Inf,Buf);         Buf := Trim(Buf);         if (Length(Buf) > 0) and (Buf[1] <> '*') then begin //跳过注示行 if Pos('[DATE]',UpperCase(Buf)) > 0 then begin             while not Eof(Inf) do begin             ReadLn(Inf,Buf);                     if Pos('[END OF DEFINITION]',UpperCase(Buf)) > 0 then begin Break;                     end                     else if (Length(Buf) > 0) and (Buf[1] <> '*') then begin                     StrPCopy(Yard.sDate,Buf);                     end;                 end;             end             else if Pos('[CSD]', UpperCase(Buf)) > 0 then begin             while not Eof(Inf) do begin             ReadLn(Inf,Buf);                     if Pos('[END OF DEFINITION]',UpperCase(Buf)) > 0 then begin Break;                     end                     else if (Length(Buf) > 0) and (Buf[1] <> '*') then begin                     Terminal := TTerminal.Create;                         StrPCopy(Terminal.sName, GetStrItem(Buf,'/',1));                         Terminal.sCoor := GetStrItem(Buf,'/',2);                         Yard.TerminalList.Add(Terminal);                     end;                 end;             end             else if Pos('[RPD]', UpperCase(Buf)) > 0 then begin while not Eof(Inf) do begin             ReadLn(Inf,Buf);                     if Pos('[END OF DEFINITION]',UpperCase(Buf)) > 0 then begin Break;                     end                     else if (Length(Buf) > 0) and (Buf[1] <> '*') then begin for I := 0 to Yard.TerminalList.Count - 1 do begin                         Terminal := TTerminal(Yard.TerminalList.Items);                             if Terminal.sName = GetStrItem(Buf, '/', 1) then Break;                             Terminal := nil;                         end;                         if Assigned(Terminal) then begin                         if (Terminal.sCoor = 'HKG80') or (Terminal.sCoor = 'BJ54') then begin                                 Terminal.RefPt.Origin.dX := StrToFloat(GetStrItem(Buf,'/',2));                                 Terminal.RefPt.Origin.dY := StrToFloat(GetStrItem(Buf,'/',3));                                 Terminal.RefPt.X_Axe.dX := StrToFloat(GetStrItem(Buf,'/',4));                                 Terminal.RefPt.X_Axe.dY := StrToFloat(GetStrItem(Buf,'/',5));                                 Terminal.RefPt.Y_Axe.dX := StrToFloat(GetStrItem(Buf,'/',6));                                 Terminal.RefPt.Y_Axe.dY := StrToFloat(GetStrItem(Buf,'/',7));                             end                             else if (Terminal.sCoor = 'WGS84') then begin                                 Terminal.RefPt.Origin.dY := GetDMSR(GetStrItem(Buf,'/',2));                                 Terminal.RefPt.Origin.dX := GetDMSR(GetStrItem(Buf,'/',3));                                 Terminal.RefPt.X_Axe.dY := GetDMSR(GetStrItem(Buf,'/',4));                                 Terminal.RefPt.X_Axe.dX := GetDMSR(GetStrItem(Buf,'/',5));                                 Terminal.RefPt.Y_Axe.dY := GetDMSR(GetStrItem(Buf,'/',6));                                 Terminal.RefPt.Y_Axe.dX := GetDMSR(GetStrItem(Buf,'/',7));                             end                         end;                     end;                 end;             end             else if Pos('[TD]', UpperCase(Buf)) > 0 then begin while not Eof(Inf) do begin             ReadLn(Inf,Buf);                     if Pos('[END OF DEFINITION]',UpperCase(Buf)) > 0 then begin Break;                     end                     else if (Length(Buf) > 0) and (Buf[1] <> '*') then begin for I := 0 to Yard.TerminalList.Count - 1 do begin                         Terminal := TTerminal(Yard.TerminalList.Items);                             if Terminal.sName = GetStrItem(Buf, '/', 1) then Break;                             Terminal := nil;                         end;                         if Assigned(Terminal) then begin if (Terminal.sCoor  = 'HKG80') or (Terminal.sCoor = 'BJ54') then begin                         with Terminal.TerminalRect do begin                                     LeftTop.dX := StrToFloat(GetStrItem(Buf, '/',2));                                     LeftTop.dY := StrToFloat(GetStrItem(Buf, '/',3));                                     RightTop.dX := StrToFloat(GetStrItem(Buf, '/',4));                                     RightTop.dY := StrToFloat(GetStrItem(Buf, '/',5));                                     RightBottom.dX := StrToFloat(GetStrItem(Buf, '/',6));                                     RightBottom.dY := StrToFloat(GetStrItem(Buf, '/',7));                                     LeftBottom.dX := StrToFloat(GetStrItem(Buf, '/',8));                                     LeftBottom.dY := StrToFloat(GetStrItem(Buf, '/',9));                                 end;                         end                             else if (Terminal.sCoor = 'WGS84') then begin                         with Terminal.TerminalRect do begin                                     LeftTop.dY := GetDMSR(GetStrItem(Buf, '/',2));                                     LeftTop.dX := GetDMSR(GetStrItem(Buf, '/',3));                                     RightTop.dY := GetDMSR(GetStrItem(Buf, '/',4));                                     RightTop.dX := GetDMSR(GetStrItem(Buf, '/',5));                                     RightBottom.dY := GetDMSR(GetStrItem(Buf, '/',6));                                     RightBottom.dX := GetDMSR(GetStrItem(Buf, '/',7));                                     LeftBottom.dY := GetDMSR(GetStrItem(Buf, '/',8));                                     LeftBottom.dX := GetDMSR(GetStrItem(Buf, '/',9));                                 end;                             end;                         end;                     end;                 end;             end             else if Pos('[BD]', UpperCase(Buf)) > 0 then begin while not Eof(Inf) do begin                 Terminal := nil;             ReadLn(Inf,Buf);                     if Pos('[END OF DEFINITION]',UpperCase(Buf)) > 0 then begin Break;                     end                     else if (Length(Buf) > 0) and (Buf[1] <> '*') then begin                     if (not Assigned(Terminal)) or (Terminal.sName <> GetStrItem(Buf, '/', 1)) then begin                             for I := 0 to Yard.TerminalList.Count - 1 do begin                                 Terminal := TTerminal(Yard.TerminalList.Items);                                 if Terminal.sName = GetStrItem(Buf, '/', 1) then Break;                                 Terminal := nil;                             end;                         end; if Assigned(Terminal) then begin                         Block := TBlock.Create; StrPCopy(Block.ID,GetStrItem(Buf, '/',2));                             Block.Rect.Left := Trunc(1000 * StrToFloat(GetStrItem(Buf, '/', 3)));                             Block.Rect.Right := Trunc(1000 * StrToFloat(GetStrItem(Buf, '/', 4)));                             Block.Rect.Top := Trunc(1000 * StrToFloat(GetStrItem(Buf, '/', 5)));                             Block.Rect.Bottom := Trunc(1000 * StrToFloat(GetStrItem(Buf, '/', 6)));                             Block.nTrackLane := StrToInt(GetStrItem(Buf, '/',7));                         Terminal.BlockList.Add(Block);                         end;                     end;                 end;             end             else if Pos('[SD]', UpperCase(Buf)) > 0 then begin             Block := nil; while not Eof(Inf) do begin             ReadLn(Inf,Buf);                     Terminal := nil;                     if Pos('[END OF DEFINITION]',UpperCase(Buf)) > 0 then begin Break;                     end                     else if (Length(Buf) > 0) and (Buf[1] <> '*') then begin                     if (not Assigned(Terminal)) or (Terminal.sName <> GetStrItem(Buf, '/', 1)) then begin                             for I := 0 to Yard.TerminalList.Count - 1 do begin                                 Terminal := TTerminal(Yard.TerminalList.Items);                                 if Terminal.sName = GetStrItem(Buf, '/', 1) then Break;                                 Terminal := nil;                             end;                         end; if (Assigned(Terminal)) then begin                         if (not Assigned(Block)) or (String(Block.ID) <> GetStrItem(Buf, '/', 2)) then begin                             Block := Terminal.GetBlock(GetStrItem(Buf, '/', 2));                             end;                             if Assigned(Block) then begin                                 Stack := TStack.Create;                                 StrPCopy(Stack.ID, GetStrItem(Buf, '/', 3));                                 Stack.nSpread := StrToInt(GetStrItem(Buf, '/', 4));                                 Stack.MinX := Trunc(1000 * StrToFloat(GetStrItem(Buf, '/', 5)));                                 Stack.MaxX := Trunc(1000 * StrToFloat(GetStrItem(Buf, '/', 6)));                                 Stack.LDI := StrToInt(GetStrItem(Buf, '/', 7));                                 Block.StackList.Add(Stack);                             end;                         end;                     end;                 end;             end             else if Pos('[LD]', UpperCase(Buf)) > 0 then begin             LaneDef := nil; while not Eof(Inf) do begin             ReadLn(Inf,Buf);                     if Pos('[END OF DEFINITION]',UpperCase(Buf)) > 0 then begin Break;                     end                     else if (Length(Buf) > 0) and (Buf[1] <> '*') then begin                     if Pos('TYPE OF DEFINITION', UpperCase(Buf)) > 0 then begin                         end                         else begin                         if (not Assigned(LaneDef)) or (LaneDef.LDI <> StrToInt(GetStrItem(Buf,'/',1))) then begin LaneDef := TLaneDef.Create;                                 LaneDef.LDI := StrToInt(GetStrItem(Buf,'/',1));                                 Yard.LaneDefList.Add(LaneDef);                             end;                             Lane := TLane.Create;                             StrPCopy(Lane.Name, GetStrItem(Buf, '/', 2));                             Lane.MinY := StrToFloat(GetStrItem(Buf, '/', 3));                             Lane.MaxY := StrToFloat(GetStrItem(Buf, '/', 4));                             Lane.TLD := StrToInt(GetStrItem(Buf, '/', 5));                             LaneDef.LaneList.Add(Lane);                         end                     end;                 end;             end;             //读完后，建立Stack和Lane的关系 { for I := 0 to Yard.TerminalList.Count - 1 do begin             Terminal := TTerminal(Yard.TerminalList.Items);                 for J := 0 to Terminal.BlockList.Count - 1 do begin                 Block := TBlock(Terminal.BlockList.Items[J]);                     for K := 0 to Block.StackList.Count - 1 do begin                     Stack := TStack(Block.StackList.Items[K]);                         Yard.MatchLDI(Stack);                     end;                 end;             end; }         end;     end;     //读完后，建立Stack和Lane的关系     for I := 0 to Yard.TerminalList.Count - 1 do begin         Terminal := TTerminal(Yard.TerminalList.Items);         for J := 0 to Terminal.BlockList.Count - 1 do begin             Block := TBlock(Terminal.BlockList.Items[J]);             for K := 0 to Block.StackList.Count - 1 do begin                 Stack := TStack(Block.StackList.Items[K]);                 Yard.MatchLDI(Stack);             end;         end;     end;     CloseFile(Inf); WriteRecFileEx('binyard.lch'); WriteIndexFileEx('binindex.lch');     Yard.Free; end; { TYard } constructor TTerminal.Create; begin BlockList := TList.Create; end; destructor TTerminal.Destroy; var I : integer; begin for I := 0 to BlockList.Count - 1 do begin     TBlock(BlockList.Items).Free;     end; BlockList.Free;   inherited; end; function TTerminal.FindBlock(Block: TBlock): TBlock; var I : integer; begin result := nil; for I := 0 to BlockList.Count - 1 do begin         if Block.ID = TBlock(BlockList.Items).ID then begin         result := Block;               Exit;         end;     end; end; function TTerminal.GetBlock(sKey: string): TBlock; var I : integer;     B : TBlock; begin result := nil;     for I := 0 to BlockList.Count - 1 do begin B := TBlock(BlockList.Items);         if String(B.ID) = sKey then begin         result := B;             Break;         end;     end; end; procedure TYard.MatchLDI(Stack: TStack); var I : integer;     LaneDef : TLaneDef; begin for I := 0 to LaneDefList.Count - 1 do begin     LaneDef := TLaneDef(LaneDefList.Items);         if LaneDef.LDI = Stack.LDI then begin         Stack.LaneDef := LaneDef;             Break;         end;     end; end; { TStack } procedure TStack.CalcRect; var I : integer;     Rec : TRec; begin     Rect.Left := MaxInt;     Rect.Right := Low(Integer);     Rect.Top := MaxInt;     Rect.Bottom := Low(Integer);     for I := 0 to RecList.Count - 1 do begin     Rec := TRec(RecList.Items);          if Rec.Rect.left < Rect.Left then Rect.Left := Rec.Rect.Left;          if Rec.Rect.Right > Rect.Right then Rect.Right := Rec.Rect.Right;          if Rec.Rect.Top < Rect.Top then Rect.Top := Rec.Rect.Top;          if Rec.Rect.Bottom > Rect.Bottom then Rect.Bottom := Rec.Rect.Bottom;     end; end; function TBlock.FindRec(Rec: TRec): TStack; var I, J : integer; Stack : TStack; begin result := nil; for I := 0 to StackList.Count - 1 do begin Stack := TStack(StackList.Items);         if Rec.StackID = String(Stack.ID) then begin               result := Stack;               Exit;          end;     end; end; function TBlock.FindStack(Stack: TStack): TStack; var I : integer; begin result := nil; for I := 0 to StackList.Count - 1 do begin     if Stack.ID = TStack(StackList.Items).ID then begin           result := TStack(StackList.Items);               Exit;          end;     end; end; function TBlock.GetInvalidLaneCount: integer; var I : integer;     Stack : TStack; begin result := 0;     for I := 0 to StackList.Count - 1 do begin Stack := TStack(StackList.Items);         if Assigned(Stack.LaneDef) then begin         if Stack.LaneDef.LDI <> 0 then begin         Inc(Result,Stack.LaneDef.LaneList.Count);             end;         end;     end; end; function TBlock.GetRecCount: integer; var I, J : integer; begin result := 0; for I := 0 to StackList.Count - 1 do begin Result := result + TStack(StackList.Items).RecList.Count;     end; end; constructor TStack.Create; begin RecList := TList.Create;     LaneDef := nil; end; destructor TStack.Destroy; var I : integer; begin for I := 0 to RecList.Count - 1 do begin     TRec(RecList.Items).Free;     end;     RecList.Free;   inherited; end; constructor TYard.Create; begin TerminalList := TList.Create;     LaneDefList := TList.Create;     nTrackWidth := 3780;     nLaneWidth := 2440 + 43; end; destructor TYard.Destroy; var I : integer; begin for I := 0 to LaneDefList.Count - 1 do begin     TLaneDef(LaneDefList.Items).Free;     end;     LaneDefList.Free; for I := 0 to TerminalList.Count - 1 do begin     TTerminal(TerminalList.Items).Free;     end;     TerminalList.Free;   inherited; end; function TTerminal.GetBlockSize: integer; begin result := 36; //在索引文件中一个Block记录长度为36 end; { TLaneDef } constructor TLaneDef.Create; begin LaneList := TList.Create; end; destructor TLaneDef.Destroy; var I : integer; begin     for I := 0 to LaneList.Count - 1 do begin     TLane(LaneList.Items).Free;     end;     LaneList.Clear;     LaneList.Free;   inherited; end; function GeoRect(X1,Y1,X2,Y2 : Integer) : TGeoRect; var Rect : TGeoRect; begin with Rect do begin     Left := Min(X1,X2); Right := Max(X1,X2);         Top := Min(Y1,Y2);         Bottom := Max(Y1,Y2);     end;     result := Rect; end; { 返回值 1 - 正确     -1 - 文件不存在 } function TransferYardMap(pszFileName : PChar) : integer;stdCall; var I : integer; begin result := 0; if not FileExists(pszFileName) then begin     result := 1;          Exit;     end;     try Process(pszFileName);     except     result := 2;     end; end; exports TransferYardMap; begin end. ******************************************************************* VC中调用： HINSTANCE hDLL; PROCESS_DATA Process_Data = NULL; if (NULL == (hDLL = LoadLibrary("BuildYard.dll"))){ AfxMessageBox("Error to load BuildYard.dll!"); return; } Process_Data = (PROCESS_DATA)GetProcAddress(hDLL,"TransferYardMap"); if (NULL == Process_Data){ AfxMessageBox("Error to get procedure's address!"); return; } int nRet = Process_Data("yardmap.txt"); switch (nRet){ case 2 : AfxMessageBox("Error on calling dll library!"); break; case 1 : AfxMessageBox("YardMap file not found!"); break; case 0 : AfxMessageBox("Successful!"); break; } FreeLibrary(hDLL); return;

fz97535 · 2003-05-21

有没有简单点的方法太多了

yyii_yyii · 2003-05-23

简单极了 定义： typedef int (__stdcall *pfnHook)(int, BOOL);//dll中函数类型 pfnHook InstallHook; HMODULE hDll; //dll 句柄 调用： hDll = LoadLibrary("RecordHook");//dll名称   if (hDll)   {     InitHook = (pfnInitHook)GetProcAddress(hDll, "dll中的函数名");   }   以后直接用InitHook就可以了。 最后   if (hDll)   {     FreeLibrary(hDll);   }

fz97534 · 2003-08-01

***************************************************************** ---------------------------------------------- ╭⌒╭⌒╮╭⌒╮～╭⌒╮ ╬　╱◥███◣╬╬╬╬╬╬╬╬╬╬╬ ╬ ︱田︱田田︱　　　　　　　　　 ╬ ----------------------------------------------  ╲█◤         ◢██◣   ◤◥   *****************************************************************                                 ///|///                             //  - -  //                              (  @ @ &nbsp

+---------------------oOOoo-(?)ooOOo---------------------+     |                                                        |     |                                                        |     |                               Ooooo                    |     +-----------------------ooooO--(   )---------------------+                             (   )   )|/                              /|(   (_/                               /_) *****************************************************************       ("`-''-/").___..--''"`-._        `6_ 6 &nbsp

`-.  (     ).`-.__.`)        (_Y_.)'  ._   )  `._ `. ``-..-'      _..`--'_..-_/  /--'_.' ,'     (il),-''  (li),'  ((!.-' *****************************************************************

fz97535 · 2003-08-01

接受答案了.

谁能给个 VC 调用 Delphi 开发的DLL 的例子(249分)

fz97535

Unregistered / Unconfirmed

fz97535

Unregistered / Unconfirmed

cwmdelpher

Unregistered / Unconfirmed

cwmdelpher

Unregistered / Unconfirmed

cwmdelpher

Unregistered / Unconfirmed

Cardinal

Unregistered / Unconfirmed

fz97535

Unregistered / Unconfirmed

driver

Unregistered / Unconfirmed

Camel_bbs

Unregistered / Unconfirmed

小笨苯

Unregistered / Unconfirmed

叶不归

Unregistered / Unconfirmed

吕雪松

Unregistered / Unconfirmed

fz97535

Unregistered / Unconfirmed

yyii_yyii

Unregistered / Unconfirmed

fz97534

Unregistered / Unconfirmed

fz97535

Unregistered / Unconfirmed

Similar threads