File tree Expand file tree Collapse file tree 6 files changed +943
-214
lines changed Expand file tree Collapse file tree 6 files changed +943
-214
lines changed Load Diff This file was deleted.
Load Diff This file was deleted.
Original file line number Diff line number Diff line change 1- library Delphi;
2-
3- { Important note about DLL memory management: ShareMem must be the
4- first unit in your library's USES clause AND your project's (select
5- Project-View Source) USES clause if your DLL exports any procedures or
6- functions that pass strings as parameters or function results. This
7- applies to all strings passed to and from your DLL--even those that
8- are nested in records and classes. ShareMem is the interface unit to
9- the BORLNDMM.DLL shared memory manager, which must be deployed along
10- with your DLL. To avoid using BORLNDMM.DLL, pass string information
11- using PChar or ShortString parameters. }
12-
13- uses
14- SysUtils,
15- Classes,
16- uMain in ' uMain.pas' ;
17-
18- { $I Definition.Inc}
19-
20- exports
21- PyInit_Delphi ;
22- { $IFDEF MSWINDOWS}
23- { $E pyd}
24- { $ENDIF}
25- { $IFDEF LINUX}
26- { $SONAME 'Delphi '}
27-
28- { $ENDIF}
29-
30- begin
31- end .
32-
1+ library Delphi;
2+
3+ { Important note about DLL memory management: ShareMem must be the
4+ first unit in your library's USES clause AND your project's (select
5+ Project-View Source) USES clause if your DLL exports any procedures or
6+ functions that pass strings as parameters or function results. This
7+ applies to all strings passed to and from your DLL--even those that
8+ are nested in records and classes. ShareMem is the interface unit to
9+ the BORLNDMM.DLL shared memory manager, which must be deployed along
10+ with your DLL. To avoid using BORLNDMM.DLL, pass string information
11+ using PChar or ShortString parameters. }
12+
13+ uses
14+ SysUtils,
15+ Classes,
16+ uMain in ' uMain.pas' ;
17+
18+ { $I Definition.Inc}
19+
20+ exports
21+ PyInit_DelphiVCL ;
22+ { $IFDEF MSWINDOWS}
23+ { $E pyd}
24+ { $ENDIF}
25+ { $IFDEF LINUX}
26+ { $SONAME 'DelphiVCL '}
27+
28+ { $ENDIF}
29+
30+ begin
31+ end .
32+
You can’t perform that action at this time.
0 commit comments