最近做个项目需要连接到一个第3方软件用到的MDB数据库，该MDB文件是用户级加密，虽然合作方给了用户名，说没有密码，但是却无法用ADO进行查询，报没有权限。用ACCESS打开也是一样，无法看到表里的数据。于是到网上去搜，结果只搜到如何用ACCESS对MDB进行加密和打开加密文件，这个跟编程无关，就没细看。关于ADO连接加密MDB，却只有如何连接设置了密码的MDB，都是以默认的管理员登录，没有如何更改用户登录的说明，而用户级加密的MDB一般都是不给管理员任何权限的。这下只好自己摸索了，问题肯定是出在连接字符串上，于是尝试进行修改。一般的连接MDB字符串是如下格式：
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=dest.mdb;Persist Security Info=True
连接设置了密码的MDB，是加上Jet OLEDB:Database Password=password，但是用户级加密的MDB却没有设置密码，只是换了个用户，同时不给管理员任何权限，需要换用户登录，于是加上User ID=username;，却报错：无法启动应用程序。工作组信息文件丢失，或是已被其它用户以独占方式打开。改了多次不行，只好再仔细看网上文章，知道必须要有相应的mdw文件才行，问合作方要到了mdw文件，按网上的方法用ACCESS打开了数据� ......
最近一个项目用到了delphi调用C#写的web服务的功能。用了一天的时间找原因，终于测试通过了。
这是一个通过web服务把一个照片上传到网站指定位置的方法。先测试了N次都不成功，通过跟踪发现delphi根本没传过来任何值，通过查资料发现VS2005 默认是用的 SoapDocumentProtocol而Delphi 是使用的 SoapRpcProtocol.这会造成所以客户端传过去的字符串变
成null，需要在生成的接口单元的INITIALIZATION 部分加上一句：InvRegistry.RegisterInvokeOptions(TypeInfo(ServiceSoap), ioDocument);
搞定了。
服务代码：
[WebMethod]
public int UploadFile(byte[] fs, string FileName)
{
try
{
///定义并实例化一个内存流，以存放提交上来的字节数组。
///定义实际文件对象，保存上载的文件。
string Ful ......
最近一个项目用到了delphi调用C#写的web服务的功能。用了一天的时间找原因，终于测试通过了。
这是一个通过web服务把一个照片上传到网站指定位置的方法。先测试了N次都不成功，通过跟踪发现delphi根本没传过来任何值，通过查资料发现VS2005 默认是用的 SoapDocumentProtocol而Delphi 是使用的 SoapRpcProtocol.这会造成所以客户端传过去的字符串变
成null，需要在生成的接口单元的INITIALIZATION 部分加上一句：InvRegistry.RegisterInvokeOptions(TypeInfo(ServiceSoap), ioDocument);
搞定了。
服务代码：
[WebMethod]
public int UploadFile(byte[] fs, string FileName)
{
try
{
///定义并实例化一个内存流，以存放提交上来的字节数组。
///定义实际文件对象，保存上载的文件。
string Ful ......
function GetFileSizeString(const pFileName: String):String;
var
iFileSize: Int64;
begin
Result := '0';
iFileSize := FileSizeByName(pFileName);
Result := IntToStr(iFileSize);
end;
function WinExecAndWait(strFileName: string; uCmdShow: UINT): DWORD;
var
cAppName: array[0..512] of char;
cCurDir: array[0..255] of char;
strWorkDir: string;
StartupInfo: TStartupInfo;
ProcessInfo: TProcessInformation;
begin
StrPCopy(cAppName, strFileName);
GetDir(0, strWorkDir);
StrPCopy(cCurDir, strWorkDir);
FillChar(StartupInfo, Sizeof(StartupInfo), #0);
StartupInfo.cb := SizeOf(StartupInfo);
StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
StartupInfo.wShowWindow := uCmdShow;
if not CreateProcess(nil, cAppName, nil, nil, true, CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS,
nil, nil, StartupInfo, ProcessInfo) then
Result := INFINITE
else
begin
WaitforSingleObject(ProcessInfo.hProcess, INFINITE);
GetExitCodeProcess(Proc ......
unit DvsLinkingClass;
interface
uses
Windows, Messages, SysUtils, Classes, Controls, Forms, Dialogs;
type
PRecLinkNode = ^RecLinkNode;
RecLinkNode = record
NodeMsg: String;
Counter: Integer;
Previous: PRecLinkNode;
Next: PRecLinkNode;
end;
TLinkingClass = class
private
//FNode,LNode:PRecLinkNode;
public
FNode,LNode:PRecLinkNode;
constructor create;
destructor destroy; override;
procedure AddNode(S:String);
procedure DeleteFNode(S:String);
procedure BakupMsg;
end;
implementation
var
LinkingClass: TLinkingClass;
constructor TLinkingClass.create;
begin
inherited;
FNode := nil;
LNode := nil;
end;
procedure TLinkingClass.AddNode(S:String);
var
p:PRecLinkNode;
begin
new(p);
if FNode = nil then
begin
LNode:=FNode;
p.NodeMsg:=S;
p.Next:=FNode;
p.Previous:=FNode;
FNode:=p;
LNode:=p;
end else
begin
LNode.Next:=p;
p.NodeMsg:=S;
p.Next:=n ......
unit unitFileOP;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
implementation
function GetSys32Dir:String;
var
Sys32Dir: string;
pSys32Dir: array[0..Max_Path] of char;
begin
GetSystemDirectory(pSys32Dir,Max_Path);
Sys32Dir := String(pSys32Dir) + chr(92);
Result := Sys32Dir;
end;
procedure MyFileCopy(const fromFile, ToFile: string);
var
fromF, ToF: file;
NumRead, NumWritten: integer;
Buf: array[1..2048] of Char;
begin
AssignFile(fromF, fromFile);
Reset(fromF, 1);
AssignFile(ToF, ToFile);
Rewrite(ToF, 1);
repeat
BlockRead(fromF, Buf, SizeOf(Buf), NumRead);
BlockWrite(ToF, Buf, NumRead, NumWritten);
until (NumRead = 0) or (NumWritten <> NumRead);
CloseFile(fromF);
CloseFile(ToF);
end;
function GetExeFileVersion(fn: string; var ma, mi, r, b: integer): boolean;
var
buf, p: pChar;
sver: ^VS_FIXEDFILEINFO;
i: LongWord;
begin
i := ......
<!-- 学习自javaeye的文章 请转贴者注自出处 learner:nilinfa -->
<HTML>
<script>
/*定义一个新的对象*/
var emptyObject1 = {};
/*定义一个新的对象*/
var emptyObject2 = new Object();
/*定义一个新的对象，键值对应*/
var person = {"name":"sdcst", "age":12, "sex":"male"};
/*弹出两个新的对象，注意两种引用方式*/
alert(person.name);
alert(person["age"]);/*注意用［］进行引用时，注意加键值双引号""*/
/*针对新对象进行赋值*/
person.name = "nlf love zhulin";
alert(person.name);
person["age"] = 19;
alert(person.age);
/*以下是删除对象中的键值*/
/*删除对象name中的键值name2*/
delete person.age;
for (var props in person)
{
alert(person[props]);
}
/*对象的constructor属性*/
var date = new Date();
alert(date.constructor);
alert(date.constructor == "Date"); ......
最新文章 :