global.pas

MD5加密与解密的说明文件与,烦琐的加密不能解密

    exit;
  end;
  try
    TempCommand := TADOCommand.Create(nil);
    TempCommand.CommandType := cmdText;
    TempCommand.CommandText := sSql;
    TempCommand.Execute;
    Result := True;
    sSql := '';
    TempCommand.Free;
    TempCommand := nil;
  except
    Result := False;
    TempCommand.Free;
  end;
end;

//*************************利用自定义函数将数据导出到Excel*********************
procedure ExportToExcel(DBGridEh:TDBGridEh);overload;
var
  dlg:TSaveDialog;
begin
  dlg:=TSaveDialog.Create(nil);
  try
    dlg.DefaultExt:='xls';
    dlg.Filter:='Excel Files(*.xls)|*.XLS';
    if dlg.Execute then
      SaveDBGridEhToExportFile(TDBGridEhExportAsXLS,DBGridEh,dlg.FileName,True);
  finally
    dlg.Free;
  end;
end;

//***************************2005-08-10定义通用多格式导出***********************
procedure ChinYinOutput(const dialogfilename:string;DBGrideh:TDBGridEh);overload;
var
  mysavedialog:TSaveDialog;
  Expclass:TDBgridehexportclass;
  EXT:string;
begin
    //ExportToExcel(dbgrdeh1);     //调用Global中的函数 只能导出一种格式不好用,又弄了一个可以导出多种格式的
    DBGrideh.SetFocus;
    mysavedialog:=TSaveDialog.Create(nil);
    mysavedialog.Filter:='Microsoft Excel Workbook (*.xls)|*.XLS|Comma separated values (*.csv)|*.CSV|HTML file (*.htm)|*.HTM|Rich Text Format (*.rtf)|*.RTF|Text files (*.txt)|*.TXT';
    mysavedialog.Title:='轻音数据导出工具';
    mysavedialog.FileName:=dialogfilename;
    try
      //if (ActiveControl is TDBGridEh) then
        if mysavedialog.Execute then
        begin
          case mysavedialog.FilterIndex of
          1: begin ExpClass := TDBGridEhExportAsXLS; Ext := 'xls'; end;
          2: begin ExpClass := TDBGridEhExportAsCSV; Ext := 'csv'; end;
          3: begin ExpClass := TDBGridEhExportAsHTML; Ext := 'htm'; end;
          4: begin ExpClass := TDBGridEhExportAsRTF; Ext := 'rtf'; end;
          5: begin ExpClass := TDBGridEhExportAsText; Ext := 'txt'; end;
          else
            Expclass:=nil;
            EXT:='';
          end;
          If Expclass<>nil then
          begin
            if UpperCase(Copy(mysavedialog.FileName,Length(mysavedialog.FileName)-2,3))<>UpperCase(EXT) then
              mysavedialog.FileName:=mysavedialog.FileName+'.'+EXT;
              SaveDBGridEhToExportFile(Expclass,DBGrideh,mysavedialog.FileName,True);
              // in this func 'false' is the private data
          end;
        end;
    finally
      mysavedialog.Free;
    end;
end;

//根据IP取得计算机名
function GetMyComputerName(IP: String): String;
var
  HostEnt: PHostEnt;
  WSAData: TWSAData;
  Addr: DWORD;
begin
  WSAStartup($101,WSAData);
  Addr := inet_addr(PChar(IP));
  HostEnt := gethostbyaddr(@addr,SizeOf(Addr),PF_INET);
  //根据IP取计算机名
  Result := HostEnt.h_name;
  WSACleanup;
end;
function LocalIp: String;
type
  TaPInAddr = array[0..10] of PInAddr;
  PaPInAddr = ^TaPInAddr;
var
  phe: PHostEnt;
  pptr: PaPInAddr;
  Buffer: array[0..63] of Char;
  I: Integer;
  GInitData: TWSADATA;
begin
  WSAStartup($101,GInitData);
  Result := '';
  GetHostName(Buffer,SizeOf(buffer));
  //取得计算机名
  phe := GetHostByName(buffer);
  //取得计算机IP
  if phe = nil then Exit;
  pptr := PaPInAddr(phe^.h_addr_list);
  I := 0;
  while pptr[I] <> nil do
  begin
    Result := strpas(inet_ntoa(pptr^[I]^));
    Inc(I);
  end;
  WSACleanup;
end;
{取得PC名--2}
function GetMyPCName():string;
var
  PCName:PChar;
  Size:Dword;
begin
  GetMem(PCName,255);
  Size:=255;
  GetComputerName(PCName,size);
  result :=PcName;
  FreeMem(PCName);
end;
{取得PC IP地址--2}
function GetIpAddress():String;
var
  ch:array[1..32] of Char;
  I : Integer;
  WSData:TWSAData;
  MyHost:PHostEnt;
  S:String;
begin
  if WSAstartup(2,wsdata)<>0 then S:='Winsock Error'
    else
     if GetHostName(@ch[1],32)<>0 then S:='HostName Error'
       else begin
         MyHost:=GetHostByName(@ch[1]);
         if MyHost=nil then S:='IP Error'
           else begin
             S:='';
             for i:=1 to 4 do begin
               S:=S+IntToStr(Ord(MyHost.h_addr^[i-1]));
               if i<4 then S:=S+'.';
             end;
           end;
       end;
  Result:=S;
end;

{列出当前工作组中所有计算机名称}
Function GetUsers( GroupName : string; var List : TStringList ) : Boolean;
type
    TNetResourceArray = ^TNetResource;//网络类型的数组
Var
  NetResource : TNetResource;
  Buf : Pointer;
  Count,BufSize,Res : DWord;
  Ind : Integer;
  lphEnum : THandle;
  Temp : TNetResourceArray;
Begin
     Result := False;
     List.Clear;
     FillChar(NetResource, SizeOf(NetResource), 0);//初始化网络层次信息
     NetResource.lpRemoteName := @GroupName[1];//指定工作组名称
     NetResource.dwDisplayType := RESOURCEDISPLAYTYPE_SERVER;//类型为服务器（工作组）
     NetResource.dwUsage := RESOURCEUSAGE_CONTAINER;
     NetResource.dwScope := RESOURCETYPE_DISK;//列举文件资源信息
     //获取指定工作组的网络资源句柄
     Res := WNetOpenEnum( RESOURCE_GLOBALNET, RESOURCETYPE_DISK,
                          RESOURCEUSAGE_CONTAINER, @NetResource,lphEnum);
     If Res <> NO_ERROR Then Exit; //执行失败
     While True Do//列举指定工作组的网络资源
     Begin
         Count := $FFFFFFFF;//不限资源数目
         BufSize := 8192;//缓冲区大小设置为8K
         GetMem(Buf, BufSize);//申请内存，用于获取工作组信息
         //获取计算机名称
         Res := WNetEnumResource(lphEnum, Count, Pointer(Buf), BufSize);
         If Res = ERROR_NO_MORE_ITEMS Then break;//资源列举完毕
         If (Res <> NO_ERROR) then Exit;//执行失败
         Temp := TNetResourceArray(Buf);
         For Ind := 0 to Count - 1 do//列举工作组的计算机名称
         Begin
             //获取工作组的计算机名称，+2表示删除"\\"，如\\wangfajun=>wangfajun
             List.Add(Temp^.lpRemoteName + 2);
             Inc(Temp);
         End;
     End;
     Res := WNetCloseEnum(lphEnum);//关闭一次列举
     If Res <> NO_ERROR Then exit;//执行失败
     Result := True;
     FreeMem(Buf); 
End;

{列出所有工作组名称}
Function GetServerList( var List : TStringList ) : Boolean;
type
    TNetResourceArray = ^TNetResource;//网络类型的数组 
Var
  NetResource : TNetResource;
  Buf : Pointer;
  Count,BufSize,Res : DWORD;
  lphEnum : THandle;
  p : TNetResourceArray;
  i,j : SmallInt;
  NetworkTypeList : TList; 
Begin
  Result := False;
  NetworkTypeList := TList.Create;
  List.Clear;
//获取整个网络中的文件资源的句柄，lphEnum为返回名柄
      Res := WNetOpenEnum( RESOURCE_GLOBALNET, RESOURCETYPE_DISK,
                           RESOURCEUSAGE_CONTAINER, Nil,lphEnum);
      If Res <> NO_ERROR Then exit;//Raise Exception(Res);//执行失败 
//获取整个网络中的网络类型信息
      Count := $FFFFFFFF;//不限资源数目
      BufSize := 8192;//缓冲区大小设置为8K
      GetMem(Buf, BufSize);//申请内存，用于获取工作组信息
      Res := WNetEnumResource(lphEnum, Count, Pointer(Buf), BufSize);
      If ( Res = ERROR_NO_MORE_ITEMS )//资源列举完毕
      or (Res <> NO_ERROR )//执行失败
      Then Exit;
      P := TNetResourceArray(Buf);
      For I := 0 To Count - 1 Do//记录各个网络类型的信息
      Begin
          NetworkTypeList.Add(p);
          Inc(P);
      End;
      //WNetCloseEnum关闭一个列举句柄
      Res := WNetCloseEnum(lphEnum);//关闭一次列举
      If Res <> NO_ERROR Then exit;
      For J := 0 To NetworkTypeList.Count-1 Do //列出各个网络类型中的所有工作组名称
      Begin//列出一个网络类型中的所有工作组名称
          NetResource := TNetResource(NetworkTypeList.Items[J]^);//网络类型信息 
//获取某个网络类型的文件资源的句柄，NetResource为网络类型信息，lphEnum为返回名柄
          Res := WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_DISK,
                              RESOURCEUSAGE_CONTAINER, @NetResource,lphEnum);
          If Res <> NO_ERROR Then break;//执行失败
          While true Do//列举一个网络类型的所有工作组的信息
          Begin
              Count := $FFFFFFFF;//不限资源数目
              BufSize := 8192;//缓冲区大小设置为8K
              GetMem(Buf, BufSize);//申请内存，用于获取工作组信息
              //获取一个网络类型的文件资源信息，
              Res := WNetEnumResource(lphEnum, Count, Pointer(Buf), BufSize);
              If ( Res = ERROR_NO_MORE_ITEMS ) //资源列举完毕
              or (Res <> NO_ERROR) //执行失败
              then break;
              P := TNetResourceArray(Buf);
              For I := 0 To Count - 1 Do//列举各个工作组的信息
              Begin
                  List.Add( StrPAS( P^.lpRemoteName ));//取得一个工作组的名称
                  Inc(P);
              End;
          End;
          Res := WNetCloseEnum(lphEnum);//关闭一次列举
          If Res <> NO_ERROR Then break;//执行失败
      End;
      Result := True;
      FreeMem(Buf);
      NetworkTypeList.Destroy; 
End; 

end.