Nell’esempio si invoca l’oggetto WinHTTP per eseguire una richiesta HTTP da una stored procedure, l’oggetto WinHTTP è una calsse COM, perciò tale esempio è applicabile a qualsiasi classe COM : /* *************** ESEMPIO CODICE t-sql ******************* */ CREATE proc dbo.INVIA_RICHIESTA(@Proxy varchar(400), @ProxyByPass varchar(400),@sUrl varchar(400),@sParam varchar(400)) as DECLARE @Hresult int DECLARE @oWinHttp int DECLARE @ErrorSource varchar…
Leggi tutto
Per invocare un dialog di conferma in Javascript : if(confirm( ‘Si vuol procedere’ )) { alert(‘hai premuto ok’) } else { alert(‘hai premuto annulla’) };
Associare un estensione file alla vostra applicazione : Associare un estensione file alla vostra applicazione : Procedure RegisterFileType(cMyExt, cMyFileType, cMyDescription, ExeName: string; IcoIndex: integer; DoUpdate: boolean = false); var Reg: TRegistry; begin Reg := TRegistry.Create; try Reg.RootKey := HKEY_CLASSES_ROOT; Reg.OpenKey(cMyExt, True); // Write my file type to it. // This…
Leggi tutto
E’ possibile ottenere l’ip (ip address) del proprio computer utilizzando la classe Indy “idIpWatch” , ad esempio per inserire l’ip nella caption del ns form è sufficiente: implementation uses IdIPWatch; … procedure TfrmMain.FormCreate(Sender: TObject); var ids: TidIpWatch; begin ids := TidIpWatch.Create; Caption := Caption + ‘(‘ + ids.LocalIP + ‘:8888)’; ids.Free; end; Se invece ci…
Leggi tutto
Esempio invocazione package SQL Server da Visual Basic Script engine: sub ExecutePackage(Server,UserId,UserPw,PackageName); set objDTSPackage = CreateObject(“DTS.Package”); objDTSPackage.LoadFromSQLServer Server, UserId,UserPw, DTSSQLStgFlag_Default, “”, “”, “”, PackageName objDTSPackage.Execute Set objDTSPackage = Nothing msgbox(“Esecuzione package conclusa”) End Sub call ExecutePackage(“localhost”,”sa”, “sa”, “PortingFromIB”)
Per le connessioni ADO in Delphi si usa in genere il componente TADOConnection i cui parametri di connessioni sono definiti da una stringa di connessione. Questo componente è la mappatura esatta delle API degli MDAC per le connessioni ADO. La definizione della connection string non è sempre immediata e quando si crea un programma di configurazione /…
Leggi tutto
