马思纯脚丫特写:把字符串封装到dll

来源：百度文库 编辑：九乡新闻网 时间：2024/05/05 15:20:20
procedure   Set_G_ResString();
var
    Nx:integer;
    tempChar:array[0..255]   of   char;
    hInstance:LongWord;
begin
    hInstance:=   LoadLibrary(pchar(ExtractFilePath(Application.ExeName)+ 'ReadCard.dll '));
    colorgrp[1]:=rgb(255,255,255);//白色
    colorgrp[2]:=clwindow;//窗体颜色
    colorgrp[3]:=clSkyBlue;//天蓝色
    colorgrp[4]:=$00FF8080;//蓝色
    colorgrp[5]:=clhighlighttext;//蓝色
    colorgrp[6]:=rgb(255,0,0);//红色
    colorgrp[7]:=rgb(0,0,0);//黑色

    for   Nx:=0   to   3   do   begin
        try
            loadstring(hInstance,497+nx,@tempchar,sizeof(tempchar));
            g_conStr[nx]:=tempchar;
        except
            g_conStr[nx]:= ' ';
        end;
    end;

    for   Nx:=1   to   30   do   begin
        try
            loadstring(hInstance,500+nx,@tempchar,sizeof(tempchar));
            G_resString[nx]:=tempchar;
        except
            g_resstring[nx]:= ' ';
        end;
    end;


    for   Nx:=1   to   11   do   begin
        try
            loadstring(hInstance,540+nx,@tempchar,sizeof(tempchar));
            g_ButtonString[nx]:=tempchar;
        except
            g_ButtonString[nx]:= ' ';
        end;
    end;

    for   nx:=1   to   10   do   begin
        try
            g_bmppicture[nx]:=loadbitmap(hinstance,pchar(200+nx))
        except
        end;
    end;
end;

 

var   d:dword;
MyChar:   array[0..254]   of   char;
begin
d:=loadlibrary( 'xxx.dll ');//   资源DLL
Loadstring(d,101,mychar,254);//101资源DLL中字符串的禁识ID
caption:=mychar;
Freelibrary(d);
end;

 

   
procedure   TfrmMain.FormCreate(Sender:   TObject);
begin
    dllHandle:=LoadLibrary( 'YKRss.Dll ');
end;
procedure   TfrmMain.FormDestroy(Sender:   TObject);
begin
    FreeLibrary(dllHandle);
end;
//------------------------------------------------------------------
procedure   TfrmMain.mniChineseClick(Sender:   TObject);
begin
    SetLanguage(TMenuItem(Sender).Tag);
end;

procedure   TfrmMain.SetLanguage(LId:Integer);
begin
    mniFile.Caption                       :=GetMenuString(LId*1000);
    act1.Caption                             :=GetmenuString(LId*1000+1);
    act2.Caption                             :=GetmenuString(LId*1000+2);
    mniUpdateAll.Caption             :=GetmenuString(LId*1000+5);
...
end;

function   GetMenuString(MenuId:Integer):string;
var   s:   array[0..50]   of   char;
begin
    LoadString(dllHandle,MenuId,s,SizeOf(s));
    Result:=s;
end;
procedure   Set_G_ResString();
var
    Nx:integer;
    tempChar:array[0..255]   of   char;
    hInstance:LongWord;
begin
    hInstance:=   LoadLibrary(pchar(ExtractFilePath(Application.ExeName)+ 'ReadCard.dll '));
    colorgrp[1]:=rgb(255,255,255);//白色
    colorgrp[2]:=clwindow;//窗体颜色
    colorgrp[3]:=clSkyBlue;//天蓝色
    colorgrp[4]:=$00FF8080;//蓝色
    colorgrp[5]:=clhighlighttext;//蓝色
    colorgrp[6]:=rgb(255,0,0);//红色
    colorgrp[7]:=rgb(0,0,0);//黑色

    for   Nx:=0   to   3   do   begin
        try
            loadstring(hInstance,497+nx,@tempchar,sizeof(tempchar));
            g_conStr[nx]:=tempchar;
        except
            g_conStr[nx]:= ' ';
        end;
    end;

    for   Nx:=1   to   30   do   begin
        try
            loadstring(hInstance,500+nx,@tempchar,sizeof(tempchar));
            G_resString[nx]:=tempchar;
        except
            g_resstring[nx]:= ' ';
        end;
    end;


    for   Nx:=1   to   11   do   begin
        try
            loadstring(hInstance,540+nx,@tempchar,sizeof(tempchar));
            g_ButtonString[nx]:=tempchar;
        except
            g_ButtonString[nx]:= ' ';
        end;
    end;

    for   nx:=1   to   10   do   begin
        try
            g_bmppicture[nx]:=loadbitmap(hinstance,pchar(200+nx))
        except
        end;
    end;
end;
  • laihongbo524
  • (风铃夜思雨)
  • 等　级：
var   d:dword;
MyChar:   array[0..254]   of   char;
begin
d:=loadlibrary( 'xxx.dll ');//   资源DLL
Loadstring(d,101,mychar,254);//101资源DLL中字符串的禁识ID
caption:=mychar;
Freelibrary(d);
end;
  • 对我有用[0]
  • 丢个板砖[0]
  • 引用
  • 举报
  • 管理
  • TOP
精华推荐：本人BLOG新作 - Delphi实现Photoshop浮雕效果
  • zzq4823
  • (高原猫)
  • 等　级：
#3楼 得分：0回复于：2006-04-03 13:39:06 谢谢，自己解决了。
procedure   TfrmMain.FormCreate(Sender:   TObject);
begin
    dllHandle:=LoadLibrary( 'YKRss.Dll ');
end;
procedure   TfrmMain.FormDestroy(Sender:   TObject);
begin
    FreeLibrary(dllHandle);
end;
//------------------------------------------------------------------
procedure   TfrmMain.mniChineseClick(Sender:   TObject);
begin
    SetLanguage(TMenuItem(Sender).Tag);
end;

procedure   TfrmMain.SetLanguage(LId:Integer);
begin
    mniFile.Caption                       :=GetMenuString(LId*1000);
    act1.Caption                             :=GetmenuString(LId*1000+1);
    act2.Caption                             :=GetmenuString(LId*1000+2);
    mniUpdateAll.Caption             :=GetmenuString(LId*1000+5);
...
end;

function   GetMenuString(MenuId:Integer):string;
var   s:   array[0..50]   of   char;
begin
    LoadString(dllHandle,MenuId,s,SizeOf(s));
    Result:=s;
end;
procedure   Set_G_ResString();
var
    Nx:integer;
    tempChar:array[0..255]   of   char;
    hInstance:LongWord;
begin
    hInstance:=   LoadLibrary(pchar(ExtractFilePath(Application.ExeName)+ 'ReadCard.dll '));
    colorgrp[1]:=rgb(255,255,255);//白色
    colorgrp[2]:=clwindow;//窗体颜色
    colorgrp[3]:=clSkyBlue;//天蓝色
    colorgrp[4]:=$00FF8080;//蓝色
    colorgrp[5]:=clhighlighttext;//蓝色
    colorgrp[6]:=rgb(255,0,0);//红色
    colorgrp[7]:=rgb(0,0,0);//黑色

    for   Nx:=0   to   3   do   begin
        try
            loadstring(hInstance,497+nx,@tempchar,sizeof(tempchar));
            g_conStr[nx]:=tempchar;
        except
            g_conStr[nx]:= ' ';
        end;
    end;

    for   Nx:=1   to   30   do   begin
        try
            loadstring(hInstance,500+nx,@tempchar,sizeof(tempchar));
            G_resString[nx]:=tempchar;
        except
            g_resstring[nx]:= ' ';
        end;
    end;


    for   Nx:=1   to   11   do   begin
        try
            loadstring(hInstance,540+nx,@tempchar,sizeof(tempchar));
            g_ButtonString[nx]:=tempchar;
        except
            g_ButtonString[nx]:= ' ';
        end;
    end;

    for   nx:=1   to   10   do   begin
        try
            g_bmppicture[nx]:=loadbitmap(hinstance,pchar(200+nx))
        except
        end;
    end;
end;
  • 对我有用[0]
  • 丢个板砖[0]
  • 引用
  • 举报
  • 管理
  • TOP
精华推荐：两个字符串比较函数的评估(仅比较是否相同,忽略大小写)
  • laihongbo524
  • (风铃夜思雨)
  • 等　级：
#2楼 得分：10回复于：2006-04-03 11:42:34 var   d:dword;
MyChar:   array[0..254]   of   char;
begin
d:=loadlibrary( 'xxx.dll ');//   资源DLL
Loadstring(d,101,mychar,254);//101资源DLL中字符串的禁识ID
caption:=mychar;
Freelibrary(d);
end;
  • 对我有用[0]
  • 丢个板砖[0]
  • 引用
  • 举报
  • 管理
  • TOP
精华推荐：本人BLOG新作 - Delphi实现Photoshop浮雕效果

 

#3楼 得分：0回复于：2006-04-03 13:39:06 谢谢，自己解决了。
procedure   TfrmMain.FormCreate(Sender:   TObject);
begin
    dllHandle:=LoadLibrary( 'YKRss.Dll ');
end;
procedure   TfrmMain.FormDestroy(Sender:   TObject);
begin
    FreeLibrary(dllHandle);
end;
//------------------------------------------------------------------
procedure   TfrmMain.mniChineseClick(Sender:   TObject);
begin
    SetLanguage(TMenuItem(Sender).Tag);
end;

procedure   TfrmMain.SetLanguage(LId:Integer);
begin
    mniFile.Caption                       :=GetMenuString(LId*1000);
    act1.Caption                             :=GetmenuString(LId*1000+1);
    act2.Caption                             :=GetmenuString(LId*1000+2);
    mniUpdateAll.Caption             :=GetmenuString(LId*1000+5);
...
end;

function   GetMenuString(MenuId:Integer):string;
var   s:   array[0..50]   of   char;
begin
    LoadString(dllHandle,MenuId,s,SizeOf(s));
    Result:=s;
end;
procedure   Set_G_ResString();
var
    Nx:integer;
    tempChar:array[0..255]   of   char;
    hInstance:LongWord;
begin
    hInstance:=   LoadLibrary(pchar(ExtractFilePath(Application.ExeName)+ 'ReadCard.dll '));
    colorgrp[1]:=rgb(255,255,255);//白色
    colorgrp[2]:=clwindow;//窗体颜色
    colorgrp[3]:=clSkyBlue;//天蓝色
    colorgrp[4]:=$00FF8080;//蓝色
    colorgrp[5]:=clhighlighttext;//蓝色
    colorgrp[6]:=rgb(255,0,0);//红色
    colorgrp[7]:=rgb(0,0,0);//黑色

    for   Nx:=0   to   3   do   begin
        try
            loadstring(hInstance,497+nx,@tempchar,sizeof(tempchar));
            g_conStr[nx]:=tempchar;
        except
            g_conStr[nx]:= ' ';
        end;
    end;

    for   Nx:=1   to   30   do   begin
        try
            loadstring(hInstance,500+nx,@tempchar,sizeof(tempchar));
            G_resString[nx]:=tempchar;
        except
            g_resstring[nx]:= ' ';
        end;
    end;


    for   Nx:=1   to   11   do   begin
        try
            loadstring(hInstance,540+nx,@tempchar,sizeof(tempchar));
            g_ButtonString[nx]:=tempchar;
        except
            g_ButtonString[nx]:= ' ';
        end;
    end;

    for   nx:=1   to   10   do   begin
        try
            g_bmppicture[nx]:=loadbitmap(hinstance,pchar(200+nx))
        except
        end;
    end;
end;

 

 

  var   d:dword;
MyChar:   array[0..254]   of   char;
begin
d:=loadlibrary( 'xxx.dll ');//   资源DLL
Loadstring(d,101,mychar,254);//101资源DLL中字符串的禁识ID
caption:=mychar;
Freelibrary(d);
end;

 

 

谢谢，自己解决了。
procedure   TfrmMain.FormCreate(Sender:   TObject);
begin
    dllHandle:=LoadLibrary( 'YKRss.Dll ');
end;
procedure   TfrmMain.FormDestroy(Sender:   TObject);
begin
    FreeLibrary(dllHandle);
end;
//------------------------------------------------------------------
procedure   TfrmMain.mniChineseClick(Sender:   TObject);
begin
    SetLanguage(TMenuItem(Sender).Tag);
end;

procedure   TfrmMain.SetLanguage(LId:Integer);
begin
    mniFile.Caption                       :=GetMenuString(LId*1000);
    act1.Caption                             :=GetmenuString(LId*1000+1);
    act2.Caption                             :=GetmenuString(LId*1000+2);
    mniUpdateAll.Caption             :=GetmenuString(LId*1000+5);
...
end;

function   GetMenuString(MenuId:Integer):string;
var   s:   array[0..50]   of   char;
begin
    LoadString(dllHandle,MenuId,s,SizeOf(s));
    Result:=s;
end;
把字符串封装到dll WebService封装成.dll文件详解 C++字符串完全指引之二 —— 字符串封装类 用DLL实现把数据库的记录导出到EXCEL中(VB)转 用DLL实现把数据库的记录导出到EXCEL中(VB) - 应用程序 - VB教程 DLL C语言拷贝一个字符串到另一个函数代码 Asp.net中把cs文件编译成dll 如何把不包含某个字符串的行取出来？ | 用时方恨少 字符串函数 替换字符串 ehRecObj.dll xlive.dll exe dll SOP封装 封装种类 GRUB怎么样做到光盘上去呢？用什么写到MBR里？ - 封装技术交流区 - 萝卜家园，你的... 把云彩吃到嘴里 把话说到心窝里 java字符串应用之字符串编码转换 什么是DLL文件？DLL文件是什么意思？ 电子元件封装大全及封装常识_ 字符串函数大全 数字转化为字符串