|
ｿｽ@ｿｽｿｽCOBOLｿｽｿｽｿｽｿｽDELPHI(DLL)ｿｽｿｽﾄび出ｿｽｿｽｿｽﾉは？
|
ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ｿｽEpapy's softwarelibrary
ｿｽﾈゑｿｽ 2011/04/06(ｿｽｿｽ) 17:40:26
ｿｽｿｽｿｽｿｽｿｽﾅの趣ｿｽｿｽｿｽﾍ擾ｿｽ痰｢ｿｽｿｽｿｽｿｽ
ｿｽmｿｽｿｽﾜゑｿｽｿｽが・ｿｽEｿｽEｿｽA
ｿｽｿｽｿｽ竄ｳｿｽｿｽｿｽﾄ会ｿｽｿｽｿｽｿｽｿｽｿｽB
COBOLｿｽｿｽｿｽｿｽDELPHI(DLL)ｿｽｿｽﾄび出ｿｽｿｽ
ｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽ成ｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽA
ｿｽSｿｽｿｽｿｽﾅゑｿｽｿｽﾈゑｿｽｿｽﾄ搾ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾌゑｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾎ具ｿｽｿｽｿｽｿｽﾄ抵ｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽB
COBOL CALL
Delphi LIBｿｽ成ｿｽH
ｿｽTｿｽｿｽｿｽvｿｽｿｽｿｽ¥ｿｽ[ｿｽXｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽEｿｽEｿｽE
ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽがなゑｿｽｿｽﾅゑｿｽｿｽB
COBOLｿｽｿｽAAAｿｽｿｽCALLｿｽｿｽｿｽｿｽﾆ、
ｿｽvｿｽｿｽｿｽVｿｽ[ｿｽWｿｽｿｽ ｿｽGｿｽｿｽｿｽgｿｽｿｽ ｿｽ|ｿｽCｿｽｿｽｿｽg"_AAA@4"ｿｽｿｽｿｽEｿｽEｿｽEｿｽBｿｽGｿｽｿｽｿｽ[
ｿｽﾖ撰ｿｽｿｽﾌ作成ｿｽｿｽｿｽ@ｿｽｿｽ謔ｭｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
igy 2011/04/07(ｿｽｿｽ) 09:57:57
ｿｽwｿｽｿｽｿｽｿｽｿｽｿｽﾉ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽxｿｽﾅ、ｿｽｿｽｿｽﾝはまゑｿｽｿｽｿｽｿｽｿｽCOBOLｿｽｿｽgｿｽｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽﾌで、
ｿｽﾙとゑｿｽﾇゑｿｽｿｽｿｽﾉ暦ｿｽｿｽﾄまゑｿｽｿｽが・ｿｽEｿｽE
ｿｽEｿｽｿｽｿｽｿｽCOBOLｿｽﾌマｿｽjｿｽｿｽｿｽAｿｽｿｽｿｽﾆゑｿｽｿｽIｿｽｿｽｿｽｿｽｿｽCｿｽｿｽｿｽwｿｽｿｽｿｽvｿｽﾝゑｿｽｿｽｿｽｿｽﾈゑｿｽﾌに、
DLL ｿｽﾌ呼び出ｿｽｿｽｿｽﾉ関ゑｿｽｿｽｿｽｿｽｿｽﾍゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽH
ｿｽEGoogleｿｽﾈどで、
COBOL DLL ｿｽﾄび出ｿｽｿｽ
ｿｽﾆゑｿｽｿｽﾅ鯉ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽQｿｽlｿｽﾉなゑｿｽｿｽｿｽﾈどゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽH
ｿｽﾈゑｿｽｿｽﾈゑｿｽ 2011/04/08(ｿｽｿｽ) 14:44:47
ｿｽﾇゑｿｽCOBOLｿｽｿｽgｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌゑｿｽｿｽかｿｽｿｽﾜゑｿｽｿｽが、
ｿｽｿｽｿｽｿｽｿｽﾌ使ｿｽｿｽｿｽﾄゑｿｽｿｽﾆのゑｿｽｿｽｿｽCOBOLｿｽｿｽDLLｿｽｿｽﾄび出ｿｽｿｽｿｽ鼾ｿｽﾍ、
ｿｽﾄばゑｿｽｿｽDLLｿｽﾌ厄ｿｽｿｽOｿｽﾌ先頭ｿｽｿｽ_(ｿｽAｿｽｿｽｿｽ_ｿｽ[ｿｽoｿｽ[)ｿｽｿｽtｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾆダｿｽｿｽｿｽA
ｿｽﾆ鯉ｿｽｿｽｿｽｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽﾅゑｿｽｿｽｿｽｿｽｿｽ
CALLｿｽ@"_AAA"ｿｽ@parm1,ｿｽEｿｽEｿｽEｿｽEｿｽE.
ｿｽﾆなゑｿｽﾜゑｿｽｿｽBｿｽｿｽｿｽgｿｽｿｽｿｽｿｽCOBOLｿｽﾌマｿｽjｿｽｿｽｿｽAｿｽｿｽｿｽﾉゑｿｽDLLｿｽﾄび出ｿｽｿｽｿｽﾌ記ｿｽqｿｽﾍなゑｿｽｿｽﾅゑｿｽｿｽｿｽｿｽHｿｽB
Quest 2011/04/08(ｿｽｿｽ) 16:21:31
COBOLｿｽﾅはゑｿｽｿｽｿｽﾜゑｿｽｿｽが、ｿｽﾆゑｿｽｿｽ髑包ｿｽuｿｽﾌドｿｽｿｽｿｽCｿｽoｿｽ[DLLｿｽﾌ関撰ｿｽｿｽｿｽｿｽｿｽ
"_HogeHoge@4"ｿｽﾌ様ｿｽﾉアｿｽｿｽｿｽ_ｿｽ[ｿｽoｿｽ[ｿｽﾅ始ｿｽﾜり＠ｿｽｿｽｿｽlｿｽﾅ終ｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽﾌ鯉ｿｽﾌ撰ｿｽｿｽlｿｽﾍ、ｿｽﾇゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌバｿｽCｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽ謔､ｿｽﾅ（C++ｿｽﾌｿｽｿｽ[ｿｽｿｽｿｽHｿｽj
ｿｽｿｽｿｽｿｽｿｽｿｽintegerｿｽｿｽ|ｿｽCｿｽｿｽｿｽ^ｿｽ[ｿｽｿｽｿｽPｿｽﾂの場合ｿｽｿｽ"ｿｽ`@4"ｿｽAintegerｿｽｿｽｿｽｿｽｿｽQｿｽﾂなゑｿｽ"ｿｽ`@8"ｿｽﾆなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽAｿｽｿｽｿｽCｿｽuｿｽｿｽｿｽｿｽｿｽiDelphiｿｽjｿｽｿｽｿｽｿｽｿｽｿｽしｿｽﾄゑｿｽｿｽｿｽﾈゑｿｽAｿｽﾄび出ｿｽｿｽｿｽﾖ撰ｿｽｿｽｿｽｿｽｿｽ
"_AAA@4"ｿｽﾈどにゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽﾇゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽB
Null 2011/04/10(ｿｽｿｽ) 07:01:44
10ｿｽｿｽｿｽNｿｽOｿｽﾉ、MF-COBOL V5.0Jｿｽﾅ趣ｿｽｿｽｿｽｿｽIｿｽﾉ搾ｿｽｿｽｿｽｿｽPGｿｽｿｽｿｽ轤ｻｿｽｿｽ轤ｵｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽEｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB ｿｽｿｽｿｽｿｽｿｽﾌ参ｿｽlｿｽﾉなゑｿｽﾎ、ｿｽﾆ鯉ｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽ...
ｿｽｿｽｿｽｿｽｿｽｿｽﾆ抵ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽeｿｽﾍゑｿｽB
ｿｽﾇみにゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽBm(_ _)m
000010$set case defaultbyte"00"
000020
000030 IDENTIFICATION DIVISION.
000040 PROGRAM-ID. dll-call.
000050 ENVIRONMENT DIVISION.
000060 CONFIGURATION SECTION.
000070 SOURCE-COMPUTER.
000080 OBJECT-COMPUTER.
000090*--ｿｽdｿｽvｿｽﾇ会ｿｽｿｽｿｽｿｽｿｽ-----------------------------------------------*
000100 special-names.
000110* call-convention 74 is WINAPI.
000120*-------------------------------------------------------------*
000130
000140 WORKING-STORAGE SECTION.
000170
000220 01 dll-max pic s9(09) comp-5.
000230 01 dll-min pic s9(09) comp-5.
000240 01 ret-FLAG PIC S9(09) COMP-5.
01 kotae pic s9(09) comp-5.
000310 01 minmax PROCEDURE-POINTER.
procedure division.
001570 SET minmax TO ENTRY "minmax.dll".
000370 max-call.
move 356 to dll-max.
000380 move 123 to dll-min.
000390
000400 CALL "Max" using
000410 by value dll-max
000420 by value dll-min
000430 returning ret-flag.
000440
move ret-flag to kotae.
display kotae at 0101.
000460
000480 min-call.
move 356 to dll-max.
000380 move 123 to dll-min.
000500
000510 CALL "Min" using
000520 by value dll-max
000530 by value dll-min
000540 returning ret-flag.
move ret-flag to kotae.
display kotae at 0201.
40 *-----------------------------------
000650 exit-prog.
000660 EXIT PROGRAM.
000670 STOP RUN.
********************** ｿｽﾈ擾ｿｽ COBOL *********************
********************** ｿｽﾈ会ｿｽ Delphi *********************
library minmax;
uses
SysUtils,
Classes,
// Unit1 in 'Unit1.pas' {Form1};
{$R *.res}
function Min(X,Y:Integer):Integer;stdcall;
begin
if X < Y then Min := X else Min := Y;
end;
function Max(X,Y:Integer):Integer;stdcall;
begin
if X > Y then Max :=X else Max := Y;
end;
exports
Min,
Max;
begin
end.
Null 2011/04/10(ｿｽｿｽ) 07:08:15
ｿｽﾇ会ｿｽｿｽB
ｿｽｿｽｿｽ[ｿｽUｿｽ[ｿｽCｿｽｿｽｿｽ^ｿｽ[ｿｽtｿｽFｿｽCｿｽXｿｽﾉ、Dialog Systemｿｽｿｽgｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽﾌ包ｿｽｿｽｿｽｿｽｿｽ除ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB ｿｽｿｽｿｽﾌ為、ｿｽﾏ撰ｿｽｿｽｿｽｿｽﾉアｿｽｿｽｿｽ}ｿｽbｿｽ`ｿｽﾈ箇擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽ
ｿｽｿｽｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽﾍ、ｿｽzｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽﾈゑｿｽ 2011/04/11(ｿｽｿｽ) 14:26:53
ｿｽｿｽｿｽいｿｽあｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾆりあｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ答ゑｿｽQｿｽlｿｽｿｽ
ｿｽ`ｿｽｿｽｿｽｿｽｿｽｿｽｿｽWｿｽｿｽｿｽﾄみようｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾌ鯉ｿｽｿｽﾊ、ｿｽ告ゑｿｽｿｽｿｽｿｽﾄ抵ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾈゑｿｽ 2011/04/13(ｿｽｿｽ) 09:48:35
ｿｽrｿｽｿｽｿｽｿｽｿｽﾊとハｿｽ}ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽﾜり理ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽﾜま、
ｿｽLｿｽﾚゑｿｽｿｽﾄゑｿｽｿｽ驍ｽｿｽﾟ、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
Questｿｽlｿｽﾌコｿｽｿｽｿｽｿｽｿｽgｿｽｿｽｿｽ
"ｿｽｿｽｿｽｿｽｿｽｿｽintegerｿｽｿｽ|ｿｽCｿｽｿｽｿｽ^ｿｽ[ｿｽｿｽｿｽPｿｽﾂの場合ｿｽｿｽ"ｿｽ`@4"ｿｽAintegerｿｽｿｽｿｽｿｽｿｽQｿｽﾂなゑｿｽ"ｿｽ`@8"ｿｽﾆなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB"
ｿｽｿｽｿｽﾈ降ｿｽﾌ撰ｿｽｿｽｿｽｿｽｿｽｿｽSｿｽﾌ倍ｿｽｿｽｿｽﾆなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
DelphiｿｽｿｽDLLｿｽｿｽgｿｽpｿｽｿｽｿｽ驍ｽｿｽﾟゑｿｽ(ｿｽCｿｽ}ｿｽCｿｽ`ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽ)
ｿｽbｿｽnｿｽaｿｽnｿｽkｿｽﾌコｿｽｿｽｿｽpｿｽCｿｽｿｽｿｽｿｽｿｽﾉ、"DELPHI_DLL.LIB"ｿｽｿｽpｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽuDELPHI_DLL.DEFｿｽv
LIBRARY DELPHI_DLL
EXPORTS
DELPHI_DLL@8 @1
ｿｽRｿｽ}ｿｽｿｽｿｽhｿｽvｿｽｿｽｿｽｿｽｿｽvｿｽgｿｽｿｽｿｽAｿｽｿｽｿｽLｿｽRｿｽ}ｿｽｿｽｿｽhｿｽｿｽｿｽs
lib /def:"DELPHI_DLL.DEF" /out:"DELPHI_DLL.LIB"
ｿｽﾅ、ｿｽｿｽｿｽﾛゑｿｽCOBOLｿｽｿｽDelphiｿｽﾍ、ｿｽｿｽｿｽLｿｽﾌ通ゑｿｽ
(COBOL)
01 LEVEL1.
03 LEVEL3.
05 LEVEL5_1 PIC X(8).
05 LEVEL5_2 PIC X(8).
INITIALIZE LEVEL1
MOVE 'FROM_COB1' TO LEVEL5_1
MOVE 'FROM_COB2' TO LEVEL5_2
CALL 'DELPHI_DLL' USING LEVEL1.
(Delphi)ｿｽuDELPHI_DLLｿｽv
function FUN1(FROM_COB:PChar):PChar;stdcall;
var
str_FROM_COB
begin
str_FROM_COB := FROM_COB;
"str_FROM_COB"ｿｽﾉは、'FROM_COB1FROM_COB2'ｿｽﾆ難ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽ
(Delphi)ｿｽuDELPHI_DLLｿｽv(ｿｽｿｽLｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ"var"ｿｽｿｽﾇ会ｿｽｿｽｿｽ)
function FUN2(var FROM_COB:PChar):PChar;stdcall;
var
str_FROM_COB
begin
str_FROM_COB := FROM_COB;
"str_FROM_COB"ｿｽﾌ擾ｿｽｿｽｿｽｿｽﾅ暦ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽlｿｽnｿｽｿｽｿｽﾆ参ｿｽﾆ渡ｿｽｿｽｿｽﾅは、ｿｽｿｽｿｽ@ｿｽｿｽｿｽ痰､ｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
Quest 2011/04/13(ｿｽｿｽ) 13:50:30
COBOLｿｽｿｽｿｽｿｽDLLｿｽｿｽ`ｿｽｿｽｿｽ@ｿｽﾉつゑｿｽｿｽﾄは知ｿｽｿｽﾈゑｿｽｿｽﾌで会ｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽCOBOLｿｽﾅゑｿｽｿｽｿｽｿｽｿｽﾌバｿｽCｿｽgｿｽｿｽｿｽｿｽｿｽtｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾈゑｿｽ
(FROM_COB:PChar)ｿｽﾅゑｿｽ(var FROM_COB:PChar)ｿｽﾅゑｿｽｿｽｿｽｿｽｿｽｿｽ4ｿｽoｿｽCｿｽgｿｽﾈのゑｿｽ
DELPHI_DLL@4 @1
ｿｽﾆゑｿｽｿｽｿｽﾗゑｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽiｿｽｿｽｿｽｿｽｿｽﾌ難ｿｽeｿｽﾌサｿｽCｿｽYｿｽﾅはなゑｿｽｿｽAｿｽｿｽｿｽｿｽ[ｿｽﾏ撰ｿｽ]ｿｽｿｽｿｽﾌゑｿｽｿｽｿｽLｿｽｿｽｿｽｿｽTｿｽCｿｽYｿｽﾅゑｿｽｿｽj
ｿｽｿｽｿｽﾈみゑｿｽ
> DELPHI_DLL@8 @1
ｿｽｿｽｿｽｿｽ"@1"ｿｽﾍ会ｿｽｿｽｿｽﾓ厄ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽH
