, 01 1970 . 03:00
+
! !
Delphi XE2 DLL Microsoft Visual C++ 2010. :
Delphi:
[Code]function GetResult(CallBack: Pointer): PAnsiChar; stdcall; external 'test_cb.dll' name '_GetResult@4';
function CB_FUNC(A: Integer): boolean; stdcall;
begin
Result := A > 0;
end;
procedure TForm3.Button1Click(Sender: TObject);
begin
ListBox1.Items.Add(Str ...
http://www.delphikingdom.com/asp/answer.asp?IDAnswer=82816