uses
SysUtils,
Classes;const
constr='Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=college;Datasource=%s';function constring(ip:string):string;stdcall;
//var
// con:string;
begin
Result:=Format(constr,[ip]);end;
{$R *.res} exports
constring;
begin
end.
各位大虾,, 看下这个有错吗?
SysUtils,
Classes;const
constr='Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=college;Datasource=%s';function constring(ip:string):string;stdcall;
//var
// con:string;
begin
Result:=Format(constr,[ip]);end;
{$R *.res} exports
constring;
begin
end.
各位大虾,, 看下这个有错吗?
解决方案 »
- 温度转换
- 求程序只能打开一个实例得代码,谢谢
- 我的客户端软件连接到远程SQL server服务器,总是时不时提示 "连接失败",导致数据丢失,怎么解决?
- 是不是现在CSDN庙搞大了,什么样的人都有了,做版主可以这样处理和回复了?
- DBGRID中的LOOKUP字段如何控制
- 请给几个免费的生产管理的程序吧,要求很简单
- delphi解复杂方程高手来解答
- DELPHI+IDHTTP遇到的一种问题!有没达人能帮助?
- 高手请进:小弟在做delphi+word程序时,试用getPropValue(range,'属性'),总提示出错,将range转为Tobject还是一样!!!
- 请问如何在程序运行时创建新的数据库文件(DBASE)?
- C#的坚直方向视角怎么变换
- Delphi都有什么好点的可以在上面绘图的控件?
function constring(ip:string):string;stdcall;export;
如果是开发通用dll 建议使用pchar