이번에 포스관련 카드승인  Sample를 Delphi7소스로 받았습니다.
근데 Delphi7에서 컴파일 하면 문제가 없는데 2010에서는 다음 문장이 에러는 없는데 리턴값이 안들어오네요
유니코드때문에 문법을 바꿔야 하는거 같습니다.
NicePosSend(Byte(pchar(ip)),port,Byte(pchar(SndData)),Byte(pchar(SndSignData)),Byte(RecvData));
에서 Byte형을 보내기위해 String형을 Byte(PChar(ip)) 여기가 문제인거 같은데 어찌바꿔야 할까요.
Delphi7실행파일과 2010실행파일 소스도 올려드립니다.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Edit2: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  function NicePosSend(btNiceIP: Byte;iNicePort: integer; sSendData:Byte; sSendSignData: Byte; sReceveData: Byte): integer; stdcall; external 'NicePosV205.dll' name 'Pos_Send';
var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var ip: string;
    port: integer;
    SndData: string;
    SndSignData: string;
    RecvData: pchar;
    sRecvData: string;
    aryRecvData: array[0..450] of char;
    nRet: integer;
    Header : String;
    Card : String;
    Pay,Etc : String;

begin
  ip := '211.33.136.1';
  port := 40777;
  nRet := 0;
  FillChar(aryRecvData,Sizeof(aryRecvData),#20);
  RecvData := aryRecvData;
  SndData := '0256TAX23933000020323041054020020H1';

  // nRet에서 리턴값이 Delphi7에는 들어오는데 2010에서는 값이 안들어오네요
  nRet :=   NicePosSend(Byte(pchar(ip)),port,Byte(pchar(SndData)),Byte(pchar(SndSignData)),Byte(RecvData));