안녕하세요 ?

아래의 질문을 읽어보니 제가 봐도 헛갈릴거 같네여.. ^^;

소스를 올리오니, 해결해 주세여~ --;

var
  Form1 : TForm1;
  IniFile : TIniFile;

  DllSSub : Procedure;

  Procedure DllConnect; Stdcall; Export;

implementation

{$R *.DFM}

Function TForm1.DllSSubs(S : String) : Boolean;
var
  H : HInst;
begin
  H := LoadLibrary(PChar('Dlls\SMain.Dll'));

  if H <= 0 then
  begin
    Result := False;
    Exit;
  end else

  begin
    try
      @DllSSub := GetProcAddress(H, PChar('DllSSub'));
      DllSSub;

      if H <> 0 then Result := True
      else Result := False;
    Finally
      FreeLibrary(H);
    end;
  end;
end;

위의 Procedure DllConnect; Stdcall; Export; 는 외부로 나가는 것이니
별 상관하지 마시구여.. ^^; 이번 소스는 끌려가는 쪽입니다..

  Procedure DllSSub(S : String); Stdcall; Export;

implementation

{$R *.DFM}

Procedure DllSSub(S : String); Stdcall;
var Form : TSForm;
begin
  Form := TSForm.Create(Application);

  Login := S;
  Form.ShowModal;
  Form.Free;
end;

위의 첫번째 소스에서 DllSSubs(Edit1.Text); 로 두번째 소스를
부르도록 되어있습니다만, 에러가 발생합니다.. --;

첫번째 소스에서 @DllSSub := GetProcAddress(H, PChar('DllSSub')); 의
아래에 삽입된 DllSSub; 부분을 DllSSub(Edit1.Text); 로 전송하고
싶은데 에러가 발생하고요.. DllSSub(String) 으로 전송하게 해결좀
해주시기 바랍니다.. ^^;

아래의 질문보다 자세하죠 ? ^^;


                                     From : IKN Webmaster
                                     Tae-Jin KIM (김태진)