unit uFrame_Dyp002;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Graphics, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.StdCtrls,
  System.ImageList, FMX.ImgList, FMX.Controls.Presentation, FMX.Edit,
  FMX.Objects,uFrameBase,uShowInfo,uKsoap,uPucFun, FMX.Memo.Types,
  FMX.ScrollBox, FMX.Memo, DateUtils,Winapi.Windows;

type
  TDataPacket = record
    Line1: string;    // 第一行数据
    Line2: string;    // 第二行数据
    Line3: string;    // 第三行数据
    Line4: string;    // 第四行数据
    Line5: string;    // 第五行数据
    Field1: Integer;  // 第六行的第一个值
    Field2: Integer;  // 第六行的第二个值
    Field3: Integer;  // 第六行的第三个值
    Field4: Integer;  // 第六行的第四个值
    Field5: string;   // 第六行的第五个值
  end;

  TFrame_Dyp002 = class(TFrameBase)
    Rectangle88: TRectangle;
    Option1: TRectangle;
    Glyph9: TGlyph;
    OptionLabel1: TText;
    Text19: TText;
    Edit_CaiZhi: TEdit;
    Option2: TRectangle;
    Glyph2: TGlyph;
    OptionLabel3: TText;
    Text6: TText;
    Edit_banhou: TEdit;
    Option3: TRectangle;
    Glyph3: TGlyph;
    OptionLabel5: TText;
    Text23: TText;
    Edit_jiexi: TEdit;
    Option4: TRectangle;
    Glyph12: TGlyph;
    OptionLabel7: TText;
    Text28: TText;
    Edit_xiankuang: TEdit;
    Option7: TRectangle;
    Glyph13: TGlyph;
    OptionLabel9: TText;
    Text30: TText;
    Edit_rongchadada: TEdit;
    ImageList1: TImageList;
    Option6: TRectangle;
    Glyph1: TGlyph;
    Text1: TText;
    Text2: TText;
    Edit_rongchaxiao: TEdit;
    Option5: TRectangle;
    Glyph4: TGlyph;
    Text3: TText;
    Text4: TText;
    Edit_jianju: TEdit;
    TxtError: TText;
    Timer1: TTimer;
    OpenDialog1: TOpenDialog;
    Memo1: TMemo;
    procedure Edit_CaiZhiClick(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    iLine: integer;
    sLine1: string;
    LastPacket: TDataPacket;
    procedure TimerTimerAbc;
    procedure Timer3TimerA;
    { Private declarations }
  public
     procedure FillDefaultValue(sPartnumValue,sDefaultTxt:string);override; //填写默认值
     function DoExec():boolean;override;  //判断输入是否有效,执行插入主表,或打开窗体
     function CheckValid(var sTxt:string):boolean;override;
     function ParseLastDataPacket(const Content: string): TDataPacket;
  end;

implementation

{$R *.fmx}

uses uDM, json_webservice, uSafeLog;

function TFrame_Dyp002.CheckValid(var sTxt:string):boolean; //返回面次数据
var
   aa:Extended;
begin
   Result:=false;

   if Trim(Edit_CaiZhi.Text)='' then begin Error(Edit_CaiZhi,TxtError,'空气盲区不能为空');Exit;end;
   if Trim(Edit_banhou.Text)='' then begin Error(Edit_banhou,TxtError,'水下盲区不能为空');Exit;end;
   if Trim(Edit_jiexi.Text)='' then begin Error(Edit_jiexi,TxtError,'回波距离不能为空');Exit;end;
   if Trim(Edit_xiankuang.Text)='' then begin Error(Edit_xiankuang,TxtError,'盲区差不能为空');Exit;end;
   if Trim(Edit_jianju.Text)='' then begin Error(Edit_jianju,TxtError,'是否合格不能为空');Exit;end;
//   if Trim(Edit_rongchaxiao.Text)='' then begin Error(Edit_rongchaxiao,TxtError,'不能为空');Exit;end;
//   if Trim(Edit_rongchadada.Text)='' then begin Error(Edit_rongchadada,TxtError,'不能为空');Exit;end;

   if not TryStrToFloat(Edit_CaiZhi.Text,aa) then begin Error(Edit_CaiZhi,TxtError,'空气盲区类型错误，请重新输入');Exit;end;
   if not TryStrToFloat(Edit_banhou.Text,aa) then begin Error(Edit_banhou,TxtError,'水下盲区类型错误，请重新输入');Exit;end;
   if not TryStrToFloat(Edit_jiexi.Text,aa) then begin Error(Edit_jiexi,TxtError,'回波距离类型错误，请重新输入');Exit;end;
   if not TryStrToFloat(Edit_xiankuang.Text,aa) then begin Error(Edit_xiankuang,TxtError,'盲区差类型错误，请重新输入');Exit;end;
//   if not TryStrToFloat(Edit_rongchaxiao.Text,aa) then begin Error(Edit_rongchaxiao,TxtError,'类型错误，请重新输入');Exit;end;
//   if not TryStrToFloat(Edit_rongchadada.Text,aa) then begin Error(Edit_rongchadada,TxtError,'类型错误，请重新输入');Exit;end;
   Result:=true;
   if Result then Error(Edit_CaiZhi,TxtError,'');
end;

procedure TFrame_Dyp002.FillDefaultValue(sPartnumValue,sDefaultTxt:string);
var
   tmpList:TStrings;
begin
  if sDefaultTxt='' then Exit;

  Edit_CaiZhi.Text:=FloatToStr(LastPacket.Field1);
  Edit_banhou.Text:=FloatToStr(LastPacket.Field2);
  Edit_jiexi.Text:=FloatToStr(LastPacket.Field3);
  Edit_xiankuang.Text:=FloatToStr(LastPacket.Field4);
  Edit_jianju.Text:=LastPacket.Field5;

  fDevRecord.P_ORG_CODE:= LastPacket.Line1;

  fDevRecord.P_DIE_NAME:= Edit_jianju.Text;          //是否合格

  if Assigned(FOnButtonClick) then
    FOnButtonClick(Self); // 将Frame自身作为Sender传递

//   tmpList:=TStringList.Create;
//   try
//       tmpList.DelimitedText:= ReplaceStrWork(sDefaultTxt);
//       if tmpList.Count>4 then
//       begin
//          Edit_CaiZhi.Text:=tmpList.Strings[tmpList.Count-5];
//          Edit_banhou.Text:=tmpList.Strings[tmpList.Count-4];
//          Edit_jiexi.Text:=tmpList.Strings[tmpList.Count-3];
//          Edit_xiankuang.Text:=tmpList.Strings[tmpList.Count-2];
//          Edit_jianju.Text:=tmpList.Strings[tmpList.Count-1];
//     //     Edit_rongchaxiao.Text:=tmpList.Strings[20];
//     //     Edit_rongchadada.Text:=tmpList.Strings[21];
//       end;
//
//       {tmpList.DelimitedText:=sPartnumValue;
//       if tmpList.Count>5 then                 //这里根据料号返回信息填写缺省值
//          Edit_banhou.Text:=tmpList.Strings[5];}
//
//   finally
//       tmpList.Free;
//   end;
end;


function GetLatestFileInDir(const DirPath: string): string;
var
  SearchRec: TSearchRec;
  LatestTime: TDateTime;
  CurrentTime: TDateTime;
  FindResult: Integer;
begin
  Result := '';
  LatestTime := 0; // 使用 0 而不是 MinDateTime

  // 检查目录是否存在
  if not DirectoryExists(DirPath) then
    Exit;

  try
    // 使用 FindFirst 开始搜索
    FindResult := FindFirst(IncludeTrailingPathDelimiter(DirPath) + 'bd-*.txt', faAnyFile, SearchRec);
    if FindResult = 0 then
    begin
      try
        repeat
          // 排除目录和特殊文件
          if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') and
             ((SearchRec.Attr and faDirectory) = 0) then
          begin
            try
              // 转换文件时间
              CurrentTime := FileDateToDateTime(SearchRec.Time);
              if (Result = '') or (CurrentTime > LatestTime) then
              begin
                LatestTime := CurrentTime;
                Result := IncludeTrailingPathDelimiter(DirPath) + SearchRec.Name;
              end;
            except
              on E: EConvertError do
                ; // 忽略时间转换错误，继续处理下一个文件
            end;
          end;
        until FindNext(SearchRec) <> 0;
      finally
        System.SysUtils.FindClose(SearchRec); // 确保搜索句柄被释放
      end;
    end;
  except
    on E: EInOutError do
      Result := ''; // 发生IO错误时返回空字符串
    on E: Exception do
      raise; // 重新抛出其他未处理的异常
  end;
end;

procedure TFrame_Dyp002.Timer1Timer(Sender: TObject);
var
  sFPhat: String;
  fileContent: string;

  function TryReadLockedFile(const FileName: string; out Content: string): Boolean;
  var
    hFile: THandle;
    fileSize: Integer;
    bytesRead: DWORD;
    buffer: TBytes;
  begin
    Result := False;
    Content := '';

    // 使用Windows API以最大共享模式打开文件
    hFile := CreateFile(PChar(FileName), GENERIC_READ,
                       FILE_SHARE_READ or FILE_SHARE_WRITE or FILE_SHARE_DELETE,
                       nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);

    if hFile = INVALID_HANDLE_VALUE then
    begin
      // 记录错误但不中断流程，因为定时器会再次尝试
      WorkLog.Messageinfo('Cannot open file "%s": Error %d', [FileName, GetLastError]);
      Exit;
    end;

    try
      // 获取文件大小
      fileSize := GetFileSize(hFile, nil);
      if fileSize = 0 then
      begin
        Result := True; // 空文件
        Exit;
      end;

      // 读取文件内容
      SetLength(buffer, fileSize);
      if not ReadFile(hFile, buffer[0], fileSize, bytesRead, nil) then
      begin
        WorkLog.Messageinfo('Cannot read file "%s": Error %d', [FileName, GetLastError]);
        Exit;
      end;

      // 转换为字符串 (假设UTF-8编码)
      Content := TEncoding.UTF8.GetString(buffer);
      Result := True;

    finally
      CloseHandle(hFile);
    end;
  end;

begin
  inherited;
  Timer1.Enabled:= False;
  try
    try
      sFPhat := GetLatestFileInDir(dm.MemTableReadKeyValue('tv_DirData', 'locad_dir'));

      if (sFPhat = '') or not FileExists(sFPhat) then
        Exit;

      // 尝试读取文件（使用Windows API以最大共享模式）
      if not TryReadLockedFile(sFPhat, fileContent) then
        Exit;

      // 检查文件内容是否为空
      if Trim(fileContent) = '' then
      begin
        WorkLog.MessageInfo('File %s is empty', [sFPhat]);
        Exit;
      end;

      // 处理内容
      try
        if (LastPacket.Line1 = '') or (LastPacket.Line1 <> sLine1) then
        begin
          LastPacket := ParseLastDataPacket(fileContent);
          FillDefaultValue('', LastPacket.Line1);
          sLine1 := LastPacket.Line1;
          WorkLog.MessageInfo('Successfully processed file: %s', [sFPhat]);
        end;
      except
        on E: Exception do
          WorkLog.MessageError('Error processing file content: %s', [E.Message]);
      end;
    except
      on E: Exception do
        WorkLog.MessageError('Unexpected error in Timer1Timer: %s', [E.Message]);
    end;
  finally
    Timer1.Enabled:= true;
  end;
end;

procedure TFrame_Dyp002.Timer3TimerA;
var
  sFPhat: String;
  tmpList: TStringList;
  fileContent: string;

  function TryReadFile(const FileName: string; out Content: string): Boolean;
  var
    fs: TFileStream;
    bytes: TBytes;
    encoding: TEncoding;
  begin
    Result := False;
    try
      // 尝试以共享读取模式打开文件
      fs := TFileStream.Create(FileName, fmOpenRead or fmShareDenyNone);
      try
        SetLength(bytes, fs.Size);
        if fs.Size > 0 then
          fs.Read(bytes[0], fs.Size);

        // 尝试检测文件编码
        encoding := nil;
        TEncoding.GetBufferEncoding(bytes, encoding, TEncoding.UTF8);

        // 转换为字符串
        Content := encoding.GetString(bytes);
        Result := True;
      finally
        fs.Free;
      end;
    except
      on E: Exception do
      begin
        Content := '';
        WorkLog.MessageError('Cannot open file "%s": %s', [FileName, E.Message]);
      end;
    end;
  end;

  procedure ListfillValue(sDefaultTxt: string);
  var
    tmpList: TStrings;
    ii: Integer;
  begin
    if sDefaultTxt = '' then
      Exit;
    tmpList := TStringList.Create;
    try
      try
        tmpList.Delimiter := ',';
        tmpList.DelimitedText := ReplaceStrWork(sDefaultTxt);
        Memo1.Lines.Clear;
        for ii := 0 to tmpList.Count - 1 do
          Memo1.Lines.Add(tmpList.Strings[ii]);
      except
        on E: Exception do
          WorkLog.MessageError('Error in ListfillValue: %s', [E.Message]);
      end;
    finally
      tmpList.Free;
    end;
  end;

begin
  inherited;
  try
    sFPhat := GetLatestFileInDir(dm.MemTableReadKeyValue('tv_DirData', 'locad_dir'));

    if (sFPhat = '') or not FileExists(sFPhat) then
      Exit;

    // 尝试读取文件（仅一次）
    if not TryReadFile(sFPhat, fileContent) then
      Exit;

    // 检查文件内容是否为空
    if Trim(fileContent) = '' then
    begin
      WorkLog.MessageInfo('File %s is empty', [sFPhat]);
      Exit;
    end;

    // 处理内容
    try
      if (LastPacket.Line1 = '') or (LastPacket.Line1 <> sLine1) then
      begin
        LastPacket := ParseLastDataPacket(fileContent);
        FillDefaultValue('', LastPacket.Line1);
        sLine1 := LastPacket.Line1;
        WorkLog.MessageInfo('Successfully processed file: %s', [sFPhat]);
      end;
    except
      on E: Exception do
        WorkLog.MessageError('Error processing file content: %s', [E.Message]);
    end;
  except
    on E: Exception do
      WorkLog.MessageError('Unexpected error in Timer1Timer: %s', [E.Message]);
  end;
end;

procedure TFrame_Dyp002.TimerTimerAbc;
var
  sFPhat: String;
  iLen,y: Integer;
  tmpList:TStrings;
  fileStream: TFileStream; // 用于以只读方式打开文件

  procedure ListfillValue(sDefaultTxt:string);
  var
     tmpList:TStrings;
     ii: Integer;
  begin
     if sDefaultTxt='' then Exit;
     tmpList:=TStringList.Create;
     try
       tmpList.Delimiter:= ',';
       tmpList.DelimitedText:= ReplaceStrWork(sDefaultTxt);
       Memo1.Lines.Clear;
       for ii := 0 to tmpList.Count-1 do
         Memo1.Lines.Add(tmpList.Strings[ii]);

     finally
         tmpList.Free;
     end;
  end;
begin
  inherited;
  sFPhat:= GetLatestFileInDir(dm.MemTableReadKeyValue('tv_DirData','locad_dir'));  //本地文件目录
  if FileExists(sFPhat) then
  begin
    tmpList:= TStringList.Create;
    fileStream := TFileStream.Create(sFPhat, fmOpenRead or fmShareDenyWrite); // 只读且禁止写入
    with tmpList do

    with tmpList do
    try
      try
     //   LoadFromFile(sFPhat, Encoding.UTF8);
        LoadFromStream(fileStream, Encoding.UTF8); // 从流加载内容
      except
        iLen := 0;
      end;

      if (LastPacket.Line1='') or (LastPacket.Line1<>sLine1) then
      begin
        // 解析内容，只获取最后一个数据包
        LastPacket := ParseLastDataPacket(tmpList.Text);
        FillDefaultValue('', LastPacket.Line1);
        sLine1:= LastPacket.Line1;
        WorkLog.MessageInfo('sFPhat_sLine1:%s,%s ' , [LastPacket.Line1,sLine1]);
      end;

    //  JSonProcessSensorData:= FormatDataToJSON(tmpList.Text);

//      iLen := Count;
//      if iLen>iLine then
//      begin
//   // if OpenDialog1.Execute then
//        Memo1.BeginUpdate;
//        try
//          for y := tmpList.Count downto 1 do
//          if (tmpList.Strings[y-1]<>'') then
//          begin
//         //   ListfillValue(tmpList.Strings[y-1]);
//          //  Memo1.Text:= tmpList.Strings[y-1];
//         //   FillDefaultValue('', tmpList.Strings[y-1]);
//              JSonProcessSensorData:= FormatDataToJSON(tmpList.Strings[y-1]);
//              FillDefaultValue('', JSonProcessSensorData);
//            break;
//          end;
//          //Memo1.Lines.Assign(tmpList);  // 关键修改：将当前TStringList内容复制到Memo
//        finally
//          Memo1.EndUpdate;
//        end;
//        iLine := tmpList.Count;
//
//      end;

    finally
      fileStream.Free; // 释放文件流
      Free;
    end;
  end;
end;

function TFrame_Dyp002.DoExec():boolean;
var
    LotNoRecord:TLotNoRecord;
    vId:Integer;
    sTxt:string;
    sError:string;
    vP_ID:Double;
begin
    Result:=false;
    if CheckValid(sTxt) then  //上传数据
    begin
       LotNoRecord:=TLotNoRecord.Create('-1');  //初始化记录
       LotNoRecord.P_LOT:=ksoap.P_Lot;
       LotNoRecord.P_LOT_TYPE:='正常板';
       LotNoRecord.P_Enable:='Y';
       LotNoRecord.P_ID:=0;
       LotNoRecord.P_ORG_CODE:=ksoap.P_ORG_CODE;       //廠區
       LotNoRecord.P_NUM:=ksoap.P_WORK_NUM;            //工號
       LotNoRecord.P_PC:=ksoap.P_PC;            //製程
       LotNoRecord.P_LINE:=ksoap.P_LINE;         //線別
       LotNoRecord.P_LINE_NUM:=ksoap.P_LINE_NUM;     //線別編號


       LotNoRecord.P_LINE_SPEED:=StrToFloat(Edit_jiexi.Text);     //回波距离
       LotNoRecord.P_PRODUCT_PRESSURE:=StrToFloat(Edit_banhou.Text);   //入水盲区
       LotNoRecord.P_SIDE:=Edit_CaiZhi.Text;               //出水盲区
       LotNoRecord.P_SHORT_CIRCUIT:=Edit_xiankuang.Text;               //盲区差值

       LotNoRecord.P_DIE_NAME:=(Edit_jianju.Text);          //是否合格
       LotNoRecord.P_CREATION_DATE:=FormatDateTime('yyyymmdd hh:mm:ss',Now);

       sError:='';
     //  vP_ID:=KJSon.Thread_cf_traceability_seq_f(ksoap.P_ORG_CODE,sError);
       LotNoRecord.P_ID:=vP_ID;
       //直接调用API,出错再保存本地
       if not KJSon.Thread_Insert_CM_WIP_PROCESS_LINE_HISTORY_NEW(LotNoRecord,sError) then  //提交主表不成功
       begin
          if sError='連接數據庫服務器失败' then
          begin
             dm.InsertMain(vId,LotNoRecord,true);
             ShowInfoOK('数据库连接失败,已暂存本地，可以继生产');
             Result:=true;
          end
          else
             ShowError(sError);
       end
       else
       begin
           ShowInfoOK('数据上传成功, 可以继生产');
           Result:=true;
       end;

    end;
end;


procedure TFrame_Dyp002.Edit_CaiZhiClick(Sender: TObject);
begin
  inherited;
  ShowTouchKeyBoard();
end;

function TFrame_Dyp002.ParseLastDataPacket(const Content: string): TDataPacket;
var
  Lines: TStringList;
  i: Integer;
  DataParts: TArray<string>;
  PacketFound: Boolean;
  ResString: string;
begin
  // 初始化默认值
  Result.Line1 := '';
  Result.Line2 := '';
  Result.Line3 := '';
  Result.Line4 := '';
  Result.Line5 := '';
  Result.Field1 := 0;
  Result.Field2 := 0;
  Result.Field3 := 0;
  Result.Field4 := 0;
  Result.Field5 := '';

  Lines := TStringList.Create;
  try
    Lines.Text := Content;
    PacketFound := False;

    i := 0;
    while i < Lines.Count do
    begin
      // 跳过空行
      if Trim(Lines[i]) = '' then
      begin
        Inc(i);
        Continue;
      end;

      // 检查是否足够6行非空内容（一个数据包）
      if i + 5 < Lines.Count then
      begin
        // 存储前五行数据
        Result.Line1 := Trim(Lines[i]);
        Result.Line2 := Trim(Lines[i+1]);
        Result.Line3 := Trim(Lines[i+2]);
        Result.Line4 := Trim(Lines[i+3]);
        Result.Line5 := Trim(Lines[i+4]);

        // 解析第六行（逗号分隔的数据）
        DataParts := Trim(Lines[i+5]).Split([',']);
        if Length(DataParts) >= 5 then
        begin
          Result.Field1 := StrToIntDef(DataParts[0], 0);
          Result.Field2 := StrToIntDef(DataParts[1], 0);
          Result.Field3 := StrToIntDef(DataParts[2], 0);
          Result.Field4 := StrToIntDef(DataParts[3], 0);
          Result.Field5 := DataParts[4];
        end;

        PacketFound := True;
        // 跳过这个数据包的剩余行，继续寻找下一个数据包
        Inc(i, 6);
      end
      else
        Break; // 不足6行，结束解析
    end;

    // 如果没有找到任何数据包，重置结果
    if not PacketFound then
    begin
      Result.Line1 := '';
      Result.Line2 := '';
      Result.Line3 := '';
      Result.Line4 := '';
      Result.Line5 := '';
      Result.Field1 := 0;
      Result.Field2 := 0;
      Result.Field3 := 0;
      Result.Field4 := 0;
      Result.Field5 := '';
    end;

    // 将数据包内容组成一个字符串
    ResString := '最后一个数据包:' + sLineBreak +
                    '  第一行: ' + LastPacket.Line1 + sLineBreak +
                    '  第二行: ' + LastPacket.Line2 + sLineBreak +
                    '  第三行: ' + LastPacket.Line3 + sLineBreak +
                    '  第四行: ' + LastPacket.Line4 + sLineBreak +
                    '  第五行: ' + LastPacket.Line5 + sLineBreak +
                    Format('  第六行数据: %d, %d, %d, %d, %s',
                      [LastPacket.Field1,
                       LastPacket.Field2,
                       LastPacket.Field3,
                       LastPacket.Field4,
                       LastPacket.Field5]);

    WorkLog.MessageInfo('sFPhat:%s ' , [ResString]);

  finally
    Lines.Free;
  end;
end;

end.