main.pas

三汇录音卡的录音源码增加了将来电号码写数据库

   Result := IntToStr(AYear)+ StrMonth + StrDay + StrHour + StrMinute + StrSecond;
end;

procedure TMainForm.SendData(IP_Add : Integer; Telephone, Mp3FileName : String);
begin
   If Call_Extension[IP_Add] = '2860' then
       IdUDPClient1.Host := '10.28.1.1';
   If Call_Extension[IP_Add] = '2861' then
       IdUDPClient1.Host := '10.28.1.2';
   If Call_Extension[IP_Add] = '2862' then
       IdUDPClient1.Host := '10.28.1.4';
   If Call_Extension[IP_Add] = '2863' then
       IdUDPClient1.Host := '10.28.1.5';
   If Call_Extension[IP_Add] = '2871' then
       IdUDPClient1.Host := '10.28.1.240';
   If Call_Extension[IP_Add] = '2872' then
       IdUDPClient1.Host := '10.28.1.241';
   If Call_Extension[IP_Add] = '2873' then
       IdUDPClient1.Host := '10.28.1.242';
   If Call_Extension[IP_Add] = '2874' then
       IdUDPClient1.Host := '10.28.1.243';
   StatusBar1.Panels[0].Text := Telephone+ ';' + IntToStr(IP_Add); //MP3FileName;
   IdUDPClient1.Send(Telephone+';'+ IntToStr(IP_Add));  //MP3FileName);

 {
 分机号2871	ip地址10.28.1.240
分机号2872	ip地址10.28.1.241
分机号2873	ip地址10.28.1.242
分机号2874	ip地址10.28.1.243
 }

end;

procedure TMainForm.ReadClientIP;
var
  INIFile : TINIFile;
  sPath : String; //, SqlServerString
  i : integer;
begin
  sPath := ExtractFilePath(Application.ExeName);
  INIFile := TINIFile.Create(sPath + 'IPSetup.INI');
  for i := 1 to 8 do
  Begin
    ChannelIP[i] := INIFile.ReadString('Server_IP','Channel'+IntToStr(i),'127.0.0.1');
  End;
end;


{procedure TMainForm.Save_Data(CallerID1, CallerID2 :string; CallTime)
//CallerID1 分机号,CallerID2 来电
var
  str:Tmemorystream;
  AcceptID, TempMp3File, Rece_Mp3File : String;
  sr: TSearchRec;
begin
     Record_FileName[i] := ''; //记录生成的MP3的日期文件名
//     ChannelIP[i] := '';  // 对应8个通道的客户端IP地址
     CallerID_Extension[i] := '';  //来电号码
     Call_Time[i] := 0;  // array[1..8] of Integer;
     CallerID_Num[i] := '';  //分机号


  Rece_Mp3File := AThread.Connection.ReadLn;
  AcceptID := copy(Rece_Mp3File,1,Pos(';',Rece_Mp3File)-1);
  Delete(Rece_Mp3File,1,Pos(';',Rece_Mp3File));
  TempMp3File := Rece_Mp3File;
  str:=Tmemorystream.Create;
   If FindFirst('.\Record\'+TempMp3File+'*.MP3', faAnyFile, Sr)=0 then
      StatusBar1.Panels[0].Text := Sr.Name;
  Str.LoadFromFile('.\Record\'+ Sr.Name);
  str.Position:=0;
  adoQuery1.Append;
  adoQuery1.FieldByName('受理编号').AsString := AcceptID;
  Tblobfield(adoQuery1.FieldByName('MP')).Loadfromstream(str);
  try
   adoQuery1.Post;
  finally
   str.Free;
  end;
  FileSetAttr('.\Record\'+ Sr.Name, faArchive);
  DeleteFile('.\Record\'+ Sr.Name);
end;
 }

procedure TMainForm.SaveMessage(var Msg: TMessage);
  var
  f : TextFile;
  s : string;
begin
  S := DateTimeToStr(Now)+';'+
     CallerID_Num[Msg.WParam]+';'+
     IntToStr(Msg.WParam)+';'+
     CallerID_Extension[Msg.WParam]+';'+
     DateTimeToStr(Call_Time[Msg.WParam])+    //IntToStr(Round((Time1/1000)/60))
     ';'+  //IntToStr(Call_Time)
     Record_FileName[Msg.WParam];
  AssignFile(F,'.\Text\TempFile.txt');
  If FileExists('.\Text\TempFile.txt') then
     Append(f)
  Else
    ReWrite(F);
  WriteLn(F, S);
  Flush(F);
  CloseFIle(f);
//  MainForm.Record_FileName[Msg.WParam]:='Empty';
  CallerID_Num[Msg.WParam] := '';
//  Timer2.Enabled := True;
{  StoredProc1.ParamByName('@Cg_sno').Value := '';
  StoredProc1.ParamByName('@Cg_teleid').Value := '';
  StoredProc1.ParamByName('@Cg_datetime').Value := Now;
  StoredProc1.ParamByName('@Cg_teleno').Value := CallerID_Extension[Msg.WParam];
  StoredProc1.ParamByName('@Cg_channelno').Value := IntToStr(Msg.WParam);
  StoredProc1.ParamByName('@Cg_fjno').Value := CallerID_Num[Msg.WParam];
  StoredProc1.ParamByName('@Cg').Value := Call_Time[Msg.WParam];
  StoredProc1.ParamByName('@Place').Value := '';
  StoredProc1.ParamByName('@Describe').Value := '';
  StoredProc1.ParamByName('@Accept').Value := '';
  StoredProc1.ParamByName('@FileName').Value := Record_FileName[Msg.WParam];
  StoredProc1.ExecProc;}
end;

procedure TMainForm.Button1Click(Sender: TObject);
begin
{  ADOSP_Tele.Parameters.ParamByName('@Cg_sno').Value := '';
  ADOSP_Tele.Parameters.ParamByName('@Cg_teleid').Value := '';
  ADOSP_Tele.Parameters.ParamByName('@Cg_datetime').Value := Now;
  ADOSP_Tele.Parameters.ParamByName('@Cg_teleno').Value := '123456798';
  ADOSP_Tele.Parameters.ParamByName('@Cg_channelno').Value := '2';
  ADOSP_Tele.Parameters.ParamByName('@Cg_fjno').Value := '123456987';
  ADOSP_Tele.Parameters.ParamByName('@Cg').Value := 15;
  ADOSP_Tele.Parameters.ParamByName('@Place').Value := '';
  ADOSP_Tele.Parameters.ParamByName('@Describe').Value := '';
  ADOSP_Tele.Parameters.ParamByName('@Accept').Value := '';
  ADOSP_Tele.Parameters.ParamByName('@FileName').Value := '476547654.mp3';
  ADOSP_Tele.ExecProc;
  }
end;

procedure TMainForm.Timer2Timer(Sender: TObject);
var
  TextF: TextFile;
  S: string;
  i1 : integer;
  Swi : Boolean;
begin
  IdUDPClient1.Host := '127.0.0.1';
  IdUDPClient1.Send('aa');
  Swi := False;
  If FileExists('.\Text\TempFile.txt') then
  Begin
    AssignFile(TextF, '.\Text\TempFile.txt');
    Reset(TextF);
    Readln(TextF, S);
    If s <> '' then
    Begin
      Swi := True;
      i1 := Pos(';',S);
      StoredProc1.StoredProcName := 'Insert_cg_tele;1';
      StoredProc1.Prepare;
      {
     S := DateTimeToStr(Now)+';'+ 来电时间
     CallerID_Num[Msg.WParam]+';'+  电话
     IntToStr(Msg.WParam)+';'+  通道
     CallerID_Extension[Msg.WParam]+';'+  分机号
     DateTimeToStr(Call_Time[Msg.WParam])+    //IntToStr(Round((Time1/1000)/60))
     ';'+  //IntToStr(Call_Time)
     Record_FileName[Msg.WParam];
      }
      StoredProc1.ParamByName('@Cg_sno').Value := 'aa';
      StoredProc1.ParamByName('@Cg_teleid').Value := 'bb';     //来电时间
      StoredProc1.ParamByName('@Cg_datetime').Value := StrToDateTime(Copy(S,1,i1-1));
      Delete(S,1,i1);
      i1 := Pos(';',S);                               //电话号码
      StoredProc1.ParamByName('@Cg_teleno').Value := Copy(S,1,i1-1);
      Delete(S,1,i1);
      i1 := Pos(';',S);                                 //通道
      StoredProc1.ParamByName('@Cg_channelno').Value := Copy(S,1,i1-1);
      Delete(S,1,i1);
      i1 := Pos(';',S);                               //分机号
      StoredProc1.ParamByName('@Cg_fjno').Value := Copy(S,1,i1-1);
      Delete(S,1,i1);
      i1 := Pos(';',S);
      StoredProc1.ParamByName('@Cg').Value := 2; //Call_Time[ChannelNo];
      StoredProc1.ParamByName('@Place').Value := 'cc';
      StoredProc1.ParamByName('@Describe').Value := 'dd';
      StoredProc1.ParamByName('@Accept').Value := 'ee';
      Delete(S,1,i1);
//      i1 := Pos(';',S);
      StoredProc1.ParamByName('@FileName').Value := S;
      StoredProc1.ExecProc;
    End;
    CloseFile(TextF);
  End;

  If FileExists('.\Text\TempFile.txt') and Swi then
  with TStringList.Create do
  try
      LoadFromFile('.\Text\TempFile.txt');//FileNamew为你的文本文件名称
      Delete(0);//n为你想要删除的行，0代表第一行。
      SaveToFile('.\Text\TempFile.txt');
  Finally
      Free;
  end;
end;

procedure TMainForm.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
  ABinding: TIdSocketHandle);
var
  DataStream: TStringStream;
  Rece_Str, Rece_Str1: string;
begin
  DataStream := TStringStream.Create('');
  Try
    DataStream.CopyFrom(AData, AData.Size);
    Rece_Str := DataStream.DataString;
    Rece_Str1 := Copy(Rece_Str, 1, pos(';',Rece_Str)-1);
    StatusBar1.Panels[0].Text := Rece_Str;
    If Rece_Str1 = 'Close' then
    Begin
      Delete(Rece_Str,1,pos(';', Rece_Str));
      StoredProc1.StoredProcName := 'Insert_Phone_Num;1';
      StoredProc1.Prepare;
      Rece_Str1 := Copy(Rece_Str, 1, pos(';',Rece_Str)-1);
      StoredProc1.ParamByName('@IP_add').Value := Rece_Str1;
      Delete(Rece_Str,1,pos(';', Rece_Str));
      Rece_Str1 := Copy(Rece_Str, 1, pos(';',Rece_Str)-1);
      StoredProc1.ParamByName('@Phone').Value := Rece_Str1;
      Delete(Rece_Str,1,pos(';', Rece_Str));
      Sleep(100);
      StatusBar1.Panels[0].Text := Record_FileName[StrToInt(Rece_Str)];
//      Rece_Str1 := Copy(Rece_Str, 1, pos(';',Rece_Str)-1);
      StoredProc1.ParamByName('@Mp3FileName').Value := Record_FileName[StrToInt(Rece_Str)];
      StoredProc1.ExecProc;
      Record_FileName[StrToInt(Rece_Str)] := '';
    End;
  Finally
    DataStream.Free;
  End;
end;

end.