//Delphi部分  
 //回调函数定义
type TOnMyCallBack = procedure(data:pchar; id:Integer);stdcall;  
 //DLL中的导出函数声明
procedure StartCall(param:   TOnMyCallBack(data:pchar; id:Integer);stdcall;  
begin
  ...  
  ...  
end;  
 
-----------------------------------------------------------------------------------------------------------------------------
//vc调用部分
typedef void (CALLBACK *MY_CallBack)(void *, char *data, int id);
void CALLBACK cxxGetDllData(void *data, int id)
{
     CString ss;
      ss.Format("%s:%d", data, id);
::MessageBox(NULL, "收到数据:", ss, MB_OK | MB_ICONWARNING);
}
 
void CTttDlg::OnOK()
{
//动态加载DLL到当前EXE的进程空间
     HINSTANCE hDll = LoadLibrary("d:\\temp\\test.dll");
if(!hDll)
{
:MessageBox(NULL, "加载动态链接库失败！", "Notice", MB_OK | MB_ICONWARNING);
        retu ......

delphi中的realAudio ActiveX控件的使用
作者:seeker 日期:2009-04-26
1：{=====================打开=========================}
procedure TRealOneFrm.OpenBtnClick(Sender: TObject);
begin
if OpenRMDlg.Execute then
begin
RealAudio1.SetSource(RealOneFrm.OpenRMDlg.FileName);
RealAudio1.DoPlay;
EndPosition := RealAudio1.GetLength;
RealAudio1.DoStop;
PlayBtn.Enabled := True;
PauseBtn.Enabled := False;
StopBtn.Enabled := False;
FullBtn.Enabled := False;
TrackBar1.Enabled := False;
Timer1.Enabled := False;
end;
end;
{=====================播放=========================}
procedure TRealOneFrm.PlayBtnClick(Sender: TObject);
begin
{设置图像窗口显示}
RealAudio1.SetControls('ImageWindow');
{显示图像窗口}
RealAudio1.Visible := True;
RealAudio1.DoPlay;
PlayBtn.Enabled := False;
OpenBtn.Enabled := False;
PauseBtn.Enabled := True;
StopBtn.Enabled := True;
FullBtn.Enabled := True;
Trackbar1.Enabled := True;
Timer1.Enabled := True;
PauseFlag := False;
RealAudio1.SetEnableContex ......

看如下代码：
var
   buffer:array [0..6] of char;
begin
    buffer:='delphi';
end;
编译通过
再看如下代码：
var
   buffer:array [1..7] of char;
begin
    buffer:='delphi';
end;
编译错误：
Incompatible types: 'Array' and 'String'
真不知道上面的区别有什么意义 ......

以前用过delphi 2007的这个函数的，参数超多，现在的公司用D7，结果网上一查这个函数，用不成了，原来我用错了函数
unit QDialogs;
{$IFDEF LINUX}
function SelectDirectory(const Caption, Root: WideString;
  var Directory: WideString; ShowHidden: Boolean = False): Boolean;
{$ENDIF}
{$IFDEF MSWINDOWS}
function SelectDirectory(const Caption: string; const Root: WideString;
  out Directory: WideString): Boolean;
{$ENDIF}
{$IFDEF LINUX}
function SelectDirectory(const Caption, Root: WideString;
  var Directory: WideString; ShowHidden: Boolean = False): Boolean;
var
  Dlg: TDirSelDlg;
  SaveDir: string;
begin
  Dlg := TDirSelDlg.Create(Application);
  try
    SaveDir := Directory;
    Result := Dlg.GetDirectory(Caption, Root, Directory, ShowHidden);
  finally
    Dlg.Free;
  end;
end;
{$ENDIF}
function SelectDirectory(const Caption: string; const Root: WideString;
  out Directory: ......

absolute
//它使得你能够创建一个新变量, 并且该变量的起始地址与另一个变量相同.
var
  Str: string[32];
  StrLen: Byte absolute Str;
//这个声明指定了变量StrLen起始地址与Str相同.
//由于字符串的第0个位置保存了字符串的长度, 所以StrLen的值即字符串长度.
begin
  Str := 'abc';
  Edit1.Text := IntToStr(StrLen);
end;
abstract
//它允许你创建抽象的方法, 包括有抽象方法的类称为抽象类.
//Abstract关键字必须与Virtual或Dynamic关键字同时使用, 因为抽象方法必须被覆盖式实现.
//抽象类不能实例化, 抽象方法不能包含方法体.
type
  TDemo = class
    private
    protected
      procedure X; virtual; abstract;
    public
      constructor Create;
      destructor Destroy; override;
    published
  end;
and
//一、表示逻辑与
if (a>0) and (b>0) then
//二、表示位运算
var
  a,b,c: Integer;
begin
  c := (a and b);
......

Delphi中实现全角转半角
function SbctoDbc(s:string):string;
var
 
nlength,i:integer;
  str,ctmp,c1,c2:string;
 
{
 在windows中，中文和全角字符都占两个字节，
 并且使用了ascii　chart  2 
(codes  128 - 255
)。
全角字符的第一个字节总是被置为163，
 而第二个字节则是相同半角字符码加上128（不包括空格）。
 如半角a为65，则全角a则是163（第一个字节）、
193 （第二个字节， 128 + 65 ）。
 而对于中文来讲，它的第一个字节被置为大于163，（
 如 ' 阿 ' 为:
176   162 ）,我们可以在检测到中文时不进行转换。
}
begin
  nlength: =
length(s);
   if  (nlength = 0 ) then
   
exit;
  str: = '' ;
  setlength(ctmp,nlength + 1 );
 
ctmp: = s;
  i: = 1 ;
   while  (i # 163 ) then   //
如果是汉字
     begin
      str:
= str + c1;
  ......