답변 감사합니다.

알려 주신대로 하니까 되네요.

죄송한데요 한가지 질문이 더 있읍니다


Visure C++의 DLL안에 함수

USHORT PrtWriteDevice (HANDLE PrtHandle, USHORT Component, UCHAR *Data. USHORT *Count)
입니다.

이 것을 Delphi에서 부를려면

   function PrtWriteDevice(PrtHandle : Pointer ;Component : SHORT; data : PUCHAR; Count : PInteger) :Integer;stdcall; external 'Wntdfprt' name 'PrtWriteDevice';
하면 되나요

그리고 이 것을 쓸때

예를들어 Print를 하려면

const COMPORT1 = 0;


function PrtOpenDevice(PrtHandle : Pointer ;pport : integer;pflag:integer) :Integer;stdcall; external 'Wntdfprt' name 'PrtOpenDevice';
function PrtWriteDevice(PrtHandle : Pointer ;Component : SHORT; data : PUCHAR; Count : PInteger) :Integer;stdcall; external 'Wntdfprt' name 'PrtWriteDevice';


   function PrtWrite(Buff : String): integer;
   var
       Ret: Integer;
       prthandle : pointer;
       pCount : integer;
       Temp : Pchar;
   begin
       Temp := Strpcopy(Temp, Buff);
       pCount := Strlen(Temp);
       ret := PrtOpenDevice(@prthandle,COMPORT1,0);
       Ret := PrtWriteDevice(PrtHandle ,1 ,Buff, pcount);

   end;

이 렇게 하면 Access Violation Error가 납니다.

해결 방법이 없을 까요.. 부탁합니다.