diff --git a/dbgCore/main.dfm b/dbgCore/main.dfm index f0f233c0c9453f6cac5290f202c84904acd1a9df..8c305d986d2ac1e46193aead239598d311e5877b 100644 --- a/dbgCore/main.dfm +++ b/dbgCore/main.dfm @@ -21,9 +21,9 @@ object Form_main: TForm_main object PageControl1: TPageControl Left = 0 Top = 0 - Width = 1620 - Height = 768 - ActivePage = TabSheet4 + Width = 1628 + Height = 776 + ActivePage = ts3 Align = alClient BiDiMode = bdLeftToRight Font.Charset = DEFAULT_CHARSET @@ -59,8 +59,8 @@ object Form_main: TForm_main object grp2: TGroupBox Left = 0 Top = 202 - Width = 1139 - Height = 526 + Width = 1147 + Height = 534 Align = alClient Caption = '--' Color = clInactiveCaption @@ -297,8 +297,8 @@ object Form_main: TForm_main object GpcResult: TPageControl Left = 2 Top = 73 - Width = 803 - Height = 451 + Width = 811 + Height = 459 ActivePage = ts7 Align = alClient Font.Charset = DEFAULT_CHARSET @@ -314,8 +314,8 @@ object Form_main: TForm_main object mmo2: TMemo Left = 0 Top = 0 - Width = 795 - Height = 416 + Width = 803 + Height = 424 Align = alClient Color = clMoneyGreen Font.Charset = DEFAULT_CHARSET @@ -380,10 +380,10 @@ object Form_main: TForm_main OnDblClick = lv1DblClick end object Chart1: TChart - Left = 560 + Left = 568 Top = 0 Width = 235 - Height = 416 + Height = 424 AllowPanning = pmNone AllowZoom = False BackWall.Brush.Color = clWhite @@ -582,8 +582,8 @@ object Form_main: TForm_main object scrlbx2: TScrollBox Left = 0 Top = 0 - Width = 684 - Height = 416 + Width = 692 + Height = 424 Align = alClient TabOrder = 0 object lbl73: TLabel @@ -803,10 +803,10 @@ object Form_main: TForm_main end end object grp37: TGroupBox - Left = 684 + Left = 692 Top = 0 Width = 111 - Height = 416 + Height = 424 Align = alRight TabOrder = 1 Visible = False @@ -992,8 +992,8 @@ object Form_main: TForm_main object mmo5: TMemo Left = 0 Top = 0 - Width = 518 - Height = 416 + Width = 526 + Height = 424 Align = alClient Color = clMoneyGreen Font.Charset = DEFAULT_CHARSET @@ -1032,10 +1032,10 @@ object Form_main: TForm_main TabOrder = 0 end object grp39: TGroupBox - Left = 518 + Left = 526 Top = 0 Width = 277 - Height = 416 + Height = 424 Align = alRight Caption = 'Barcode rules'#26465#30721#35268#21017 Font.Charset = DEFAULT_CHARSET @@ -1301,8 +1301,8 @@ object Form_main: TForm_main end object mmo6: TMemo Left = 0 - Top = 1 - Width = 795 + Top = 9 + Width = 803 Height = 415 Align = alBottom Color = clMoneyGreen @@ -1342,8 +1342,8 @@ object Form_main: TForm_main object mmo15: TMemo Left = 0 Top = 0 - Width = 674 - Height = 416 + Width = 682 + Height = 424 Align = alClient Color = clMoneyGreen ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 @@ -1353,10 +1353,10 @@ object Form_main: TForm_main TabOrder = 0 end object grp44: TGroupBox - Left = 674 + Left = 682 Top = 0 Width = 121 - Height = 416 + Height = 424 Align = alRight Caption = '-' TabOrder = 1 @@ -1415,10 +1415,10 @@ object Form_main: TForm_main end end object grp35: TGroupBox - Left = 805 + Left = 813 Top = 73 Width = 332 - Height = 451 + Height = 459 Align = alRight Font.Charset = DEFAULT_CHARSET Font.Color = clDefault @@ -1612,7 +1612,7 @@ object Form_main: TForm_main object grp36: TGroupBox Left = 2 Top = 22 - Width = 1135 + Width = 1143 Height = 51 Align = alTop Caption = '--' @@ -1686,10 +1686,10 @@ object Form_main: TForm_main end end object grp31: TGroupBox - Left = 1446 + Left = 1454 Top = 202 Width = 166 - Height = 526 + Height = 534 Align = alRight Caption = 'ParaSets'#26597#30475 Font.Charset = DEFAULT_CHARSET @@ -1762,7 +1762,7 @@ object Form_main: TForm_main object grp32: TGroupBox Left = 0 Top = 0 - Width = 1612 + Width = 1620 Height = 202 Align = alTop TabOrder = 2 @@ -1940,7 +1940,7 @@ object Form_main: TForm_main end end object grp18: TGroupBox - Left = 1136 + Left = 1144 Top = 22 Width = 474 Height = 178 @@ -2130,10 +2130,10 @@ object Form_main: TForm_main end end object grp45: TGroupBox - Left = 1139 + Left = 1147 Top = 202 Width = 307 - Height = 526 + Height = 534 Align = alRight Caption = #19977'PCS'#26631#20934#26495#39564#35777#20449#24687 Color = clBtnFace @@ -2795,10 +2795,10 @@ object Form_main: TForm_main end end object grp41: TGroupBox - Left = 1232 + Left = 1240 Top = 0 Width = 380 - Height = 728 + Height = 736 Align = alRight Caption = 'webAPI' TabOrder = 7 @@ -3233,8 +3233,8 @@ object Form_main: TForm_main OnShow = TabSheet4Show object spl4: TSplitter Left = 0 - Top = 535 - Width = 1612 + Top = 543 + Width = 1620 Height = 5 Cursor = crVSplit Align = alBottom @@ -3246,8 +3246,8 @@ object Form_main: TForm_main object Panel1: TScrollBox Left = 578 Top = 97 - Width = 994 - Height = 438 + Width = 1002 + Height = 446 Align = alClient Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText @@ -3262,10 +3262,10 @@ object Form_main: TForm_main OnMouseWheelDown = Panel1MouseWheelDown OnMouseWheelUp = Panel1MouseWheelUp object spl8: TSplitter - Left = 985 + Left = 993 Top = 0 Width = 5 - Height = 434 + Height = 442 Align = alRight AutoSnap = False Beveled = True @@ -3291,7 +3291,7 @@ object Form_main: TForm_main object Panel2: TPanel Left = 0 Top = 0 - Width = 1612 + Width = 1620 Height = 97 Align = alTop TabOrder = 1 @@ -4461,8 +4461,8 @@ object Form_main: TForm_main end object pnl1: TPanel Left = 0 - Top = 540 - Width = 1612 + Top = 548 + Width = 1620 Height = 188 Align = alBottom ParentShowHint = False @@ -4479,7 +4479,7 @@ object Form_main: TForm_main object grp28: TGroupBox Left = 1156 Top = 1 - Width = 455 + Width = 463 Height = 186 Align = alClient Caption = 'SysButton'#31995#32479#25353#38062 @@ -5720,10 +5720,10 @@ object Form_main: TForm_main end end object mmo3: TMemo - Left = 1572 + Left = 1580 Top = 97 Width = 40 - Height = 438 + Height = 446 Hint = #21452#20987#20999#25442#35843#35797#21644'code'#30028#38754 Align = alRight Font.Charset = ANSI_CHARSET @@ -5771,7 +5771,7 @@ object Form_main: TForm_main Left = 289 Top = 97 Width = 289 - Height = 438 + Height = 446 ActivePage = ts14 Align = alLeft Font.Charset = DEFAULT_CHARSET @@ -6061,7 +6061,7 @@ object Form_main: TForm_main Left = 0 Top = 97 Width = 289 - Height = 438 + Height = 446 ActivePage = ts27 Align = alLeft Font.Charset = DEFAULT_CHARSET @@ -6429,10 +6429,10 @@ object Form_main: TForm_main Caption = 'RS232Comm History' end object spl9: TSplitter - Left = 1106 + Left = 1114 Top = 0 Width = 5 - Height = 502 + Height = 510 Align = alRight AutoSnap = False Beveled = True @@ -6441,8 +6441,8 @@ object Form_main: TForm_main end object spl10: TSplitter Left = 0 - Top = 502 - Width = 1612 + Top = 510 + Width = 1620 Height = 5 Cursor = crVSplit Align = alBottom @@ -6452,16 +6452,16 @@ object Form_main: TForm_main ParentColor = False end object grp6: TGroupBox - Left = 1111 + Left = 1119 Top = 0 Width = 501 - Height = 502 + Height = 510 Align = alRight Caption = 'USB Device List '#35774#22791#21015#34920 TabOrder = 0 object spl11: TSplitter Left = 2 - Top = 235 + Top = 243 Width = 497 Height = 3 Cursor = crVSplit @@ -6475,7 +6475,7 @@ object Form_main: TForm_main Left = 2 Top = 22 Width = 497 - Height = 159 + Height = 167 Align = alClient Color = clMoneyGreen Font.Charset = DEFAULT_CHARSET @@ -6491,7 +6491,7 @@ object Form_main: TForm_main end object grp9: TGroupBox Left = 2 - Top = 181 + Top = 189 Width = 497 Height = 54 Align = alBottom @@ -6570,7 +6570,7 @@ object Form_main: TForm_main end object HistoryListBox: TListBox Left = 2 - Top = 238 + Top = 246 Width = 497 Height = 262 Align = alBottom @@ -6589,15 +6589,15 @@ object Form_main: TForm_main object grp30: TGroupBox Left = 0 Top = 0 - Width = 1106 - Height = 502 + Width = 1114 + Height = 510 Align = alClient Caption = #21457#36865'/'#25509#25910' LOG'#32531#20914#21306 TabOrder = 1 object grp34: TGroupBox Left = 2 - Top = 433 - Width = 1102 + Top = 441 + Width = 1110 Height = 67 Align = alBottom Caption = '--' @@ -6790,8 +6790,8 @@ object Form_main: TForm_main object memo1: TRichEdit Left = 2 Top = 22 - Width = 1102 - Height = 411 + Width = 1110 + Height = 419 Hint = #20132#20114#25968#25454'log' Align = alClient Color = clCream @@ -6811,8 +6811,8 @@ object Form_main: TForm_main object Memo2: TMemo Left = 2 Top = 22 - Width = 1102 - Height = 411 + Width = 1110 + Height = 419 Hint = #31616#26131'Log'#25968#25454#26174#31034 Align = alClient Color = clMoneyGreen @@ -6833,8 +6833,8 @@ object Form_main: TForm_main end object pgc2: TPageControl Left = 0 - Top = 507 - Width = 1612 + Top = 515 + Width = 1620 Height = 221 ActivePage = ts31 Align = alBottom @@ -7178,7 +7178,7 @@ object Form_main: TForm_main object grp29: TGroupBox Left = 224 Top = 0 - Width = 1380 + Width = 1388 Height = 186 Align = alClient Caption = 'TXD'#21457#36865#35774#32622 @@ -7186,7 +7186,7 @@ object Form_main: TForm_main object mmo17: TMemo Left = 265 Top = 22 - Width = 613 + Width = 621 Height = 130 Align = alClient Color = clSkyBlue @@ -7206,7 +7206,7 @@ object Form_main: TForm_main OnKeyUp = mmo17KeyUp end object mmo18: TMemo - Left = 878 + Left = 886 Top = 22 Width = 500 Height = 130 @@ -7321,13 +7321,13 @@ object Form_main: TForm_main object pnl3: TPanel Left = 2 Top = 152 - Width = 1376 + Width = 1384 Height = 32 Align = alBottom BevelInner = bvLowered TabOrder = 3 DesignSize = ( - 1376 + 1384 32) object cbb1: TComboBox Left = 8 @@ -7518,7 +7518,7 @@ object Form_main: TForm_main OnClick = btn53Click end object mmo7: TMemo - Left = 538 + Left = 546 Top = 0 Width = 1066 Height = 186 @@ -7531,7 +7531,7 @@ object Form_main: TForm_main object edt22: TEdit Left = 16 Top = 48 - Width = 281 + Width = 521 Height = 28 TabOrder = 2 Text = 'http://127.0.0.1:8000/desktop/111.txt' @@ -8194,7 +8194,7 @@ object Form_main: TForm_main Text = '0.0.0.0' end object mmo9: TMemo - Left = 482 + Left = 490 Top = 0 Width = 1122 Height = 186 @@ -8403,8 +8403,8 @@ object Form_main: TForm_main end object stat1: TStatusBar Left = 0 - Top = 768 - Width = 1620 + Top = 776 + Width = 1628 Height = 30 Panels = < item diff --git a/dbgCore/main.pas b/dbgCore/main.pas index 4f731eb51867434ba11c4598f90583deac1007e9..7fe8a1a88f1ba0761e062eb8470234d498ec7a00 100644 --- a/dbgCore/main.pas +++ b/dbgCore/main.pas @@ -1354,7 +1354,7 @@ uses InsertCopyNstep, PNenter, Unit1_MainCreateShowlCode, Unit2_Communication, LoadFile, LogHeadTips, SWave, FileCompare, About, Ascii, KeyBoard, LearnClampDiode, CreateDiode, Unit4_CSVen12_logFileCode, Unit4_CSVen5_Car, SWCheck, - Login; + Login, UhttpPost; {$R *.dfm} @@ -10417,45 +10417,59 @@ end; procedure TForm_main.btn54Click(Sender: TObject); var - IdHttp: TIdHTTP; Url: string; - ResponseStream: TStringStream; ResponseStr: string; begin - - IdHttp := TIdHTTP.Create(nil); - - IdHttp.ReadTimeout := 5000; - IdHttp.Request.ContentType := 'application/json'; - - ResponseStream := TStringStream.Create(edt23.Text); - try - ResponseStream.Position := 0; if Readchis('server','postInAdd')<>'' then Url:=Readchis('server','postInAdd') else Url := edt22.Text; - mmo7.Lines.Add(Url); - mmo7.Lines.Add(ResponseStream.DataString); - try - btn54.hint := 'true'; - ResponseStr :=IdHttp.post(Url, ResponseStream); - except - on e: Exception do begin - btn54.hint := 'false'; - ShowMessage(e.Message); - end; - end; - - stat1.Panels[5].Text := Copy(ResponseStr, Pos('1.0"', ResponseStr) + 3, 50); - - mmo7.Lines.Add(ResponseStr); - finally - IdHttp.Free; - ResponseStream.Free; - end; - -end; + DMhttpPost.myCheckPanelStatusInfo(Url,edt23.Text,ResponseStr); + mmo7.Lines.Add(ResponseStr); +end; + + + +//var +// IdHttp: TIdHTTP; +// Url: string; +// ResponseStream: TStringStream; +// ResponseStr: string; +//begin +// +// IdHttp := TIdHTTP.Create(nil); +// +// IdHttp.ReadTimeout := 5000; +// IdHttp.Request.ContentType := 'application/json'; +// +// ResponseStream := TStringStream.Create(edt23.Text); +// try +// ResponseStream.Position := 0; +// if Readchis('server','postInAdd')<>'' then +// Url:=Readchis('server','postInAdd') +// else +// Url := edt22.Text; +// mmo7.Lines.Add(Url); +// mmo7.Lines.Add(ResponseStream.DataString); +// try +// btn54.hint := 'true'; +// ResponseStr :=IdHttp.post(Url, ResponseStream); +// except +// on e: Exception do begin +// btn54.hint := 'false'; +// ShowMessage(e.Message); +// end; +// end; +// +// stat1.Panels[5].Text := Copy(ResponseStr, Pos('1.0"', ResponseStr) + 3, 50); +// +// mmo7.Lines.Add(ResponseStr); +// finally +// IdHttp.Free; +// ResponseStream.Free; +// end; +// +//end; end. diff --git a/forHetMes/UhttpPost.ddp b/forHetMes/UhttpPost.ddp new file mode 100644 index 0000000000000000000000000000000000000000..4370276c196a7fa73d6f8917622cba1c4e033dee Binary files /dev/null and b/forHetMes/UhttpPost.ddp differ diff --git a/forHetMes/UhttpPost.dfm b/forHetMes/UhttpPost.dfm new file mode 100644 index 0000000000000000000000000000000000000000..8ef499a24f30b0c308d1d4d176cc80f3b2e90fd6 --- /dev/null +++ b/forHetMes/UhttpPost.dfm @@ -0,0 +1,35 @@ +object DMhttpPost: TDMhttpPost + OldCreateOrder = False + Left = 666 + Top = 347 + Height = 441 + Width = 450 + object HTTPRIO1: THTTPRIO + WSDLLocation = 'http://10.24.25.80:8002/WebService.asmx?wsdl' + Service = 'WebService' + Port = 'WebServiceSoap' + HTTPWebNode.Agent = 'Borland SOAP 1.2' + HTTPWebNode.UseUTF8InHeader = True + HTTPWebNode.InvokeOptions = [soIgnoreInvalidCerts, soAutoCheckAccessPointViaUDDI] + Converter.Options = [soSendMultiRefObj, soTryAllSchema, soRootRefNodesToBody, soCacheMimeResponse, soUTF8EncodeXML] + Left = 64 + Top = 48 + end + object IdHTTP1: TIdHTTP + MaxLineAction = maException + ReadTimeout = 0 + AllowCookies = True + ProxyParams.BasicAuthentication = False + ProxyParams.ProxyPort = 0 + Request.ContentLength = -1 + Request.ContentRangeEnd = 0 + Request.ContentRangeStart = 0 + Request.ContentType = 'text/html' + Request.Accept = 'text/html, */*' + Request.BasicAuthentication = False + Request.UserAgent = 'Mozilla/3.0 (compatible; Indy Library)' + HTTPOptions = [hoForceEncodeParams] + Left = 120 + Top = 48 + end +end diff --git a/forHetMes/UhttpPost.pas b/forHetMes/UhttpPost.pas new file mode 100644 index 0000000000000000000000000000000000000000..364350c77f4d600bb907b4b96beec13980dc63c7 --- /dev/null +++ b/forHetMes/UhttpPost.pas @@ -0,0 +1,72 @@ +unit UhttpPost; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs,InvokeRegistry, Rio, SOAPHTTPClient, IdBaseComponent, + IdComponent, IdTCPConnection, IdTCPClient, IdHTTP; + +type + TDMhttpPost = class(TDataModule) + HTTPRIO1: THTTPRIO; + IdHTTP1: TIdHTTP; + private + { Private declarations } + public + (* + [server] + PostInAdd=http://10.24.25.80:8002/WebService.asmx?op=CheckPanelStatusInfo + *) + function myCheckPanelStatusInfo(PostInAdd:string;sjson:string;var sResult:string):Boolean; + { Public declarations } + end; + +var + DMhttpPost: TDMhttpPost; + +implementation + +uses WebService; + +{$R *.dfm} + + +function TDMhttpPost.myCheckPanelStatusInfo(PostInAdd:string;sjson:string;var sResult:string):Boolean; +var surl:string; + i:Integer; + myhttp:WebServiceSoap; +begin + // { + // "RESULT_FLAG": false, + // "RESULT_MESSAGE": "[MSG-M00515]NG,条码不能为空!", + // "DATA": [] + // } + Result:=False; + sResult:=''; + i:=Pos('?',PostInAdd); + if i>0 then + surl:=Copy( PostInAdd,1,i-1 ) + else + surl:=PostInAdd; + try + with HTTPRIO1 do + begin + HTTPWebNode.ConnectTimeout:=5000; + HTTPWebNode.SendTimeout:=5000; + HTTPWebNode.ReceiveTimeout:=5000; + HTTPWebNode.UseUTF8InHeader:=true; + WSDLLocation:=surl+'?wsdl'; + URL:=surl; + Port:='WebServiceSoap'; + Service:='WebService'; + end; + myhttp:=GetWebServiceSoap(True,surl+'?wsdl',HTTPRIO1); + sResult:=myhttp.CheckPanelStatusInfo(sjson); + Result:=True; + except on E: Exception do + sResult:=E.Message; + end; +end; + +end. diff --git a/forHetMes/WebService.pas b/forHetMes/WebService.pas new file mode 100644 index 0000000000000000000000000000000000000000..4beac4d2b17c2493f2634952edebd3f6bb36c954 --- /dev/null +++ b/forHetMes/WebService.pas @@ -0,0 +1,102 @@ +// ************************************************************************ // +// The types declared in this file were generated from data read from the +// WSDL File described below: +// WSDL : http://10.24.25.80:8002/WebService.asmx?wsdl +// Encoding : utf-8 +// Version : 1.0 +// (2024/7/5 9:52:42 - 1.33.2.5) +// ************************************************************************ // + +unit WebService; + +interface + +uses InvokeRegistry, SOAPHTTPClient, Types, XSBuiltIns; + +type + + // ************************************************************************ // + // The following types, referred to in the WSDL document are not being represented + // in this file. They are either aliases[@] of other types represented or were referred + // to but never[!] declared in the document. The types from the latter category + // typically map to predefined/known XML or Borland types; however, they could also + // indicate incorrect WSDL documents that failed to declare or import a schema type. + // ************************************************************************ // + // !:string - "http://www.w3.org/2001/XMLSchema" + + + + // ************************************************************************ // + // Namespace : http://tempuri.org/ + // soapAction: http://tempuri.org/%operationName% + // transport : http://schemas.xmlsoap.org/soap/http + // binding : WebServiceSoap + // service : WebService + // port : WebServiceSoap + // URL : http://10.24.25.80:8002/WebService.asmx + // ************************************************************************ // + WebServiceSoap = interface(IInvokable) + ['{F790808E-B4BF-D72D-D6C0-3B8652961A63}'] + function GetNewSerialNumber(const jsonString: WideString): WideString; stdcall; + function UploadSnLink(const jsonString: WideString): WideString; stdcall; + function SerialNumberLoadStation(const jsonString: WideString): WideString; stdcall; + function CheckSnStatusInfo(const jsonString: WideString): WideString; stdcall; + function CheckSnStatusInfo2(const jsonString: WideString): WideString; stdcall; + function CheckPanelStatusInfo(const jsonString: WideString): WideString; stdcall; + function UploadTestResultInfo(const jsonString: WideString): WideString; stdcall; + function UploadPackingResultInfo(const jsonString: WideString): WideString; stdcall; + function UploadMachineInfo(const jsonString: WideString): WideString; stdcall; + function CheckLoginUser(const UserName: WideString; const Password: WideString): WideString; stdcall; + function GetProductionLine(const Section: WideString): WideString; stdcall; + function GetStionName(const Section: WideString): WideString; stdcall; + end; + +function GetWebServiceSoap(UseWSDL: Boolean=System.False; Addr: string=''; HTTPRIO: THTTPRIO = nil): WebServiceSoap; + + +implementation + +function GetWebServiceSoap(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): WebServiceSoap; +const + defWSDL = 'http://10.24.25.80:8002/WebService.asmx?wsdl'; + defURL = 'http://10.24.25.80:8002/WebService.asmx'; + defSvc = 'WebService'; + defPrt = 'WebServiceSoap'; +var + RIO: THTTPRIO; +begin + Result := nil; + if (Addr = '') then + begin + if UseWSDL then + Addr := defWSDL + else + Addr := defURL; + end; + if HTTPRIO = nil then + RIO := THTTPRIO.Create(nil) + else + RIO := HTTPRIO; + try + Result := (RIO as WebServiceSoap); + if UseWSDL then + begin + RIO.WSDLLocation := Addr; + RIO.Service := defSvc; + RIO.Port := defPrt; + end else + RIO.URL := Addr; + finally + if (Result = nil) and (HTTPRIO = nil) then + RIO.Free; + end; +end; + + +initialization + InvRegistry.RegisterInterface(TypeInfo(WebServiceSoap), 'http://tempuri.org/', 'utf-8'); + InvRegistry.RegisterDefaultSOAPAction(TypeInfo(WebServiceSoap), 'http://tempuri.org/%operationName%'); + InvRegistry.RegisterInvokeOptions(TypeInfo(WebServiceSoap), ioDocument); + InvRegistry.RegisterInvokeOptions(TypeInfo(WebServiceSoap), ioHasAllSOAPActions); + +end. \ No newline at end of file diff --git a/zhidbg.cfg b/zhidbg.cfg index ec7a81b968b926343d3a63ec50f3a77cecb5e11d..45721bff9c432c549baa9aaec8443b93d6e80369 100644 --- a/zhidbg.cfg +++ b/zhidbg.cfg @@ -32,8 +32,8 @@ -$M16384,1048576 -K$00400000 -E"E:\共享\project2024\洲诺\MES相关资料 16PCS" --LE"d:\program files (x86)\borland\delphi7\Projects\Bpl" --LN"d:\program files (x86)\borland\delphi7\Projects\Bpl" +-LE"c:\program files (x86)\borland\delphi7\Projects\Bpl" +-LN"c:\program files (x86)\borland\delphi7\Projects\Bpl" -U"C:\Program Files (x86)\Borland\acnt_d7\D7;C:\Program Files (x86)\Borland\USB的delphi的组件" -O"C:\Program Files (x86)\Borland\acnt_d7\D7;C:\Program Files (x86)\Borland\USB的delphi的组件" -I"C:\Program Files (x86)\Borland\acnt_d7\D7;C:\Program Files (x86)\Borland\USB的delphi的组件" diff --git a/zhidbg.dof b/zhidbg.dof index 00533c0bb2da46f1ce823db45c438946a123243a..87d3806298f6f24eed76b7197a763a8b15024424 100644 --- a/zhidbg.dof +++ b/zhidbg.dof @@ -144,26 +144,27 @@ Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; Count=1 Item0=C:\Program Files (x86)\Borland\acnt_d7\D7;C:\Program Files (x86)\Borland\USB的delphi的组件 [HistoryLists\hlOutputDirectorry] -Count=22 +Count=23 Item0=E:\共享\project2024\洲诺\MES相关资料 16PCS -Item1=C:\Users\Administrator\Desktop -Item2=C:\Users\Administrator\Desktop\UDP二次开发 -Item3=C:\Users\Administrator\Desktop\udp -Item4=C:\Users\Administrator\Desktop\实现调试软件UDP二次开发包 -Item5=C:\Users\Administrator\Desktop\501111120 -Item6=C:\Users\Administrator\Desktop\四工位 -Item7=E:\共享 -Item8=E:\共享\project2023云\晶优\东尼 PC二次开发 -Item9=E:\共享\project2023云\晶优\加贺\双工位单条码+traceman -Item10=E:\共享\project2023云\晶优\SMT -Item11=E:\共享\project2023云\安诺\PASS异常\FCT上位机调试软件 -Item12=E:\共享\project2023云\安诺\PASS异常 -Item13=E:\共享\project2023云\洲诺\头行格式差异 -Item14=E:\共享\project2023云\晶优\加贺\单条码双工位+traceman -Item15=E:\共享\project2023云\晶优\加贺\单条码双工位+traceman\2 -Item16=E:\共享\project2023云\晶优\加贺\双扫码+traceman -Item17=E:\共享\project2023云\洲诺 -Item18=E:\共享\project2022 测控方案\晶优 车载测试\SMT车间 -Item19=E:\共享\project2022 测控方案\其他客户\世锐博 毅佳PC软件 -Item20=E:\共享\project2022 测控方案\安诺 集成MIC 恒流\安捷利 -Item21=E:\共享\project2022 测控方案\晶优 车载测试\加贺三代RGB测量 +Item1=C:\Users\Administrator\Desktop\测试 +Item2=C:\Users\Administrator\Desktop +Item3=C:\Users\Administrator\Desktop\UDP二次开发 +Item4=C:\Users\Administrator\Desktop\udp +Item5=C:\Users\Administrator\Desktop\实现调试软件UDP二次开发包 +Item6=C:\Users\Administrator\Desktop\501111120 +Item7=C:\Users\Administrator\Desktop\四工位 +Item8=E:\共享 +Item9=E:\共享\project2023云\晶优\东尼 PC二次开发 +Item10=E:\共享\project2023云\晶优\加贺\双工位单条码+traceman +Item11=E:\共享\project2023云\晶优\SMT +Item12=E:\共享\project2023云\安诺\PASS异常\FCT上位机调试软件 +Item13=E:\共享\project2023云\安诺\PASS异常 +Item14=E:\共享\project2023云\洲诺\头行格式差异 +Item15=E:\共享\project2023云\晶优\加贺\单条码双工位+traceman +Item16=E:\共享\project2023云\晶优\加贺\单条码双工位+traceman\2 +Item17=E:\共享\project2023云\晶优\加贺\双扫码+traceman +Item18=E:\共享\project2023云\洲诺 +Item19=E:\共享\project2022 测控方案\晶优 车载测试\SMT车间 +Item20=E:\共享\project2022 测控方案\其他客户\世锐博 毅佳PC软件 +Item21=E:\共享\project2022 测控方案\安诺 集成MIC 恒流\安捷利 +Item22=E:\共享\project2022 测控方案\晶优 车载测试\加贺三代RGB测量 diff --git a/zhidbg.dpr b/zhidbg.dpr index ed3845deac06c9bf2576749a231769850fb1eaca..74d2bedad5a25d14b6562a618783e8e0a6ed4357 100644 --- a/zhidbg.dpr +++ b/zhidbg.dpr @@ -36,7 +36,9 @@ uses Unit4_CSVen5_Car in 'unit4DataLog\Unit4_CSVen5_Car.pas', Unit5_CSVen100 in 'unit5app\Unit5_CSVen100.pas', Unit4_CSVen12_logFileCode in 'unit4DataLog\Unit4_CSVen12_logFileCode.pas', - Login in 'dbgCore\Login.pas' {Form_login}; + Login in 'dbgCore\Login.pas' {Form_login}, + UhttpPost in 'forHetMes\UhttpPost.pas' {DMhttpPost: TDataModule}, + WebService in 'forHetMes\WebService.pas'; {$R *.RES} var Mutex:THandle; @@ -69,6 +71,7 @@ begin Application.CreateForm(TFormWave, FormWave); Application.CreateForm(TFormSWcheck, FormSWcheck); Application.CreateForm(TForm_login, Form_login); + Application.CreateForm(TDMhttpPost, DMhttpPost); Application.Run; end else Application.MessageBox('The Program is Runing...该程序正在运行！','Tips提示',MB_OK);