🐉 👻 👊🏽 MSSQL सर्वर के माध्यम से प्रोग्राम ऑटो-अपडेट 🌤️ 🖕🏼 🤾🏼

मेरे कार्यक्रम का उपयोग करने वाले प्रत्येक व्यक्ति को अपने काम से नहीं चलने के लिए, ऑटो-अपडेट करना उचित है, जो सर्वर पर एक नया संस्करण अपलोड करने पर प्रोग्राम को अपडेट करेगा। कई तरीकों की कोशिश करने के बाद, मैंने उपयोग करना सबसे आसान पाया (हालाँकि सबसे सही नहीं)
तो एल्गोरिथ्म:

जब चालू होता है, तो प्रोग्राम सर्वर पर नवीनतम संस्करण की जांच करता है।
यदि सर्वर वर्तमान से अधिक है, तो प्रोग्राम के साथ ज़िप संग्रह डाउनलोड करें।
हम एप्लिकेशन फ़ाइल को किसी अन्य नाम पर (बैकअप और फ़ाइल की पहुंच के लिए) नाम देते हैं, उदाहरण के लिए, program.exe से program.backup तक।
फ़ोल्डर में फ़ाइलों की जगह संग्रह को अनपैक करें।
अद्यतन के साथ संग्रह हटाएं।
कार्यक्रम को पुनरारंभ करता है।

लेकिन इस सब से पहले, पहले MSSQL फ़ील्ड के साथ एक अद्यतन तालिका (उदाहरण के लिए) बनाएँ:
नाम - प्रकार varchar;
संस्करण- प्रकार varchar;
फ़ाइलें - प्रकार varbinary (अधिकतम) (या किसी अन्य बूँद फ़ील्ड)।
यह तालिका में रिकॉर्ड बनाने के लिए बेहतर है जहां कार्यक्रम नाम क्षेत्र में होगा।
प्रोग्राम की संस्करण संख्या निकालने के लिए इस प्रक्रिया को कोड में जोड़ें:

function TForm1.GetMyVersion: string; type TVerInfo=packed record Nevazhno: array[0..47] of byte; //   48  Minor,Major,Build,Release: word; //    end; var s:TResourceStream; v:TVerInfo; begin result:=''; try s:=TResourceStream.Create(HInstance,'#1',RT_VERSION); //   if s.Size>0 then begin s.Read(v,SizeOf(v)); //     result:=IntToStr(v.Major)+IntToStr(v.Minor)+ //   ... IntToStr(v.Release)+IntToStr(v.Build); end; s.Free; except; end; end;

अब हमें अभिलेखागार को अनपैक करने के लिए एक पुस्तकालय की आवश्यकता है, क्योंकि मैं अपडेट को एक ज़िप संग्रह में संग्रहीत करूंगा , सेवनज़ लाइब्रेरी का उपयोग करके, डेल्फी में पुस्तकालय स्रोतों के लिए पथ को पुस्तकालय में जोड़ दूंगा ।
अब हमें आर्काइव को प्रोग्राम के नए संस्करण के साथ डेटाबेस में अपलोड करना होगा। मैंने सर्वर पर अपडेट अपलोड करने का एक फॉर्म बनाया:

OpenDialog खोलने के लिए मुझे लगता है कि सब कुछ स्पष्ट है संपादन में पथ को फिर से लिखना

 if OpenDialog1.Execute then cxButtonEdit1.Text:=OpenDialog1.FileName;

संस्करण संख्या मास्क के साथ मास्कडिट में दर्ज करना बेहतर है - - 9.9.9.0; 1; _
सहेजें बटन पर, प्रक्रिया के साथ फ़ाइल अपलोड करें:

 var blobF: TBlobField; begin if not FileExists(OpenDialog1.FileName) then begin ShowMessage('  !'); exit; end else cxButtonEdit1.Text:=OpenDialog1.FileName; try ADOTable1.TableName:=Updater; //       ADOTable1.Close; ADOTable1.Open; //  name   program ADOTable1.Filtered := False; ADOTable1.Filter := 'name='+#39+'program'+#39; ADOTable1.Filtered := True; ADOTable1.Edit; blobF := ADOTable1.FieldByName('files') as TBlobField; blobF.LoadFromFile(OpenDialog1.FileName); ADOTable1.FieldByName('version').AsString:=cxMaskEdit1.Text; ADOTable1.Post; except Showmessage(' !'); end;

यह थोड़ा गलत तरीका है, एक अलग धारा बनाने के लिए सबसे अच्छा है, खासकर अगर संग्रह बड़ा है।

उपयोग में जोड़ने की आवश्यकता है - सेवनजेल और शेलएपीआई ।
अब इसे अपडेट करते हुए सबसे महत्वपूर्ण अपडेट प्रक्रिया बनाएं:

 Procedure TForm1.Update; var path,fullpath,Ourversion,LastVersion:string; blobF: TBlobField; begin //     adoquery4.Active:=false; adoquery4.sql.text:='SELECT version FROM [dbo].[Updater] WHERE name='+#39+'program'+#39; adoquery4.Active:=true; //        ,    Ourversion:=GetMyVersion; LastVersion:=adoquery4.FieldByName('version').Value; while pos('.',LastVersion)<>0 do delete(LastVersion,pos('.',LastVersion),1); //             if strtoint(LastVersion)>strtoint(Ourversion) then If messageBox(Handle,'   . ?','?', mb_YesNo or mb_iconquestion)=mrYes then try path:=ExtractFileDir(ParamStr(0)); if FileExists(path+'\Program.backup') then DeleteFile(path+'\Project2.backup'); RenameFile(path+'\Program.exe', path+'\Program.backup'); //   // //ADOTable1    Updater ADOTable1.Close; ADOTable1.Open; ADOTable1.Filtered := False; ADOTable1.Filter := 'name='+#39+'program'+#39; ADOTable1.Filtered := True; ADOTable1.Active:=true; //  blobF := ADOTable1.FieldByName('files') as TBlobField; if blobF.Value = nil then Exit; blobF.SaveToFile(path+'\Update_ARMTitan.zip'); ADOTable1.Active:=false; //   with CreateInArchive(CLSID_CFormatZip) do begin OpenFile(ExtractFilePath(ParamStr(0)) + 'Update_ARMTitan.zip'); ExtractTo(ExtractFilePath(ParamStr(0))); Close; end; //    DeleteFile(path+'\Update_ARMTitan.zip'); //  fullpath:=path+'\Project2.exe'; ShellExecute(0, 'open', PWideChar(fullpath), '', nil, SW_SHOW); //WinExec(PAnsiChar(fullpath), SW_SHOW); Application.Terminate; // or: Close; finally end; end;

यहां एक खामी भी है, प्रत्येक फ़ाइल को व्यक्तिगत रूप से अनपैक करना और त्रुटियों की जांच करना बेहतर है, न कि पूरे संग्रह को जैसा मैंने किया था।
ध्यान रखने के लिए 2 छोटी चीजें हैं:
1. कार्यक्रम के साथ निर्देशिका में 7z.dll फ़ाइल होनी चाहिए, इसलिए यह जांचना बेहतर है:

 if FileExists(path+'\7z.dll') then begin ShowMessage('  7z.dll'); exit; end;

या कुछ और।
2. अद्यतन के साथ संग्रह में 7z.dll फ़ाइल नहीं होनी चाहिए, क्योंकि इसका उपयोग किया जाता है, या जैसा कि मैंने ऊपर लिखा है, सब कुछ अलग से अनपैक करें और केवल इस फ़ाइल को अनपैक न करें।

वह सब है। मुख्य बात यह है कि संग्रह में जोड़ने से पहले अद्यतन करने के लिए तैयार कार्यक्रम को संकलित करने से पहले, कार्यक्रम के संस्करण संख्या को बदलना नहीं है।

इस विधि में कुछ खामियां हैं, और मुझे पता है। लेकिन अभी तक मैं इसका उपयोग कर रहा हूं और किसी भी समस्या का अनुभव नहीं किया है, हालांकि यह अभी भी अंतिम रूप देने के लायक है।

MSSQL सर्वर के माध्यम से प्रोग्राम ऑटो-अपडेट

More articles: