unitpulicsub.pas

delphi写的基于server和client的聊天源码 有参考意义

unit Unitpulicsub;

interface
uses
  Windows, Messages, SysUtils, Variants, Classes,  Controls, Forms,
  ExtCtrls,  StdCtrls,db,ComCtrls,adodb,DBClient,winsock;
  procedure addedit_data(clientdata:TClientDataSet;fieldnames:string ;values:string); //添加
  procedure loaddata (clientdata:TClientDataSet;filenames:string);//读取（用于网络阻塞）
  procedure savedata (clientdata:TClientDataSet;filenames:string);//保存（用于不能向服务器更新时);
  function addstr(str:string):string;
  function GetComputerName: string; //取计算机名
  function GetComputerIP: string; //取IP
implementation
  procedure addedit_data(clientdata:TClientDataSet;fieldnames:string ;values:string); //添加
  begin
    clientdata.FieldByName(trim(fieldnames)).Value:=values;
  end;
  procedure loaddata (clientdata:TClientDataSet;filenames:string);//读取（用于网络阻塞）
  begin
    clientdata.LoadFromFile(ExtractFilePath(application.ExeName)+'download\'+trim(filenames));
  end;
  procedure savedata (clientdata:TClientDataSet;filenames:string);//保存（用于网络阻塞）
  begin
    clientdata.SaveToFile(ExtractFilePath(application.ExeName)+'download\'+trim(filenames),dfxml);
  end;
  function addstr(str:string):string;
  var
    i,len:integer;
    str1:string;
  begin
    len:=length(trim(str));
    str1:=trim(str);
    for i:=1 to len do
    begin
      str1:=str1+chr(20);
    end;
    result:=str1;
  end;
  function GetComputerName: string;
var
  pcComputer: PChar;
  dwCSize: DWORD;
begin
  dwCSize := MAX_COMPUTERNAME_LENGTH + 1;
  result := '';
  GetMem(pcComputer, dwCSize);
  try
    if Windows.GetComputerName(pcComputer, dwCSize) then
      Result := pcComputer;
  finally
    FreeMem(pcComputer);
  end;
end;
///////////////获取本地计算机的IP地址

function GetComputerIP: string;
var
  ch: array[1..32] of Char;
  i: Integer;
  WSData: TWSAData;
  MyHost: PHostEnt;
  S_IP: string;
begin
  if WSAstartup(2, wsdata) <> 0 then
    EXIT;
  if getHostName(@ch[1], 32) <> 0 then
    EXIT;
  MyHost := GetHostByName(@ch[1]);
  if MyHost = nil then
    EXIT
  else
  begin
    for i := 1 to 4 do
    begin
      S_IP := S_IP + inttostr(Ord(MyHost.h_addr^[i - 1]));
      if i < 4 then
        S_IP := S_IP + '.';
    end;
  end;
  RESULT := S_IP;
end;
end.