From the db that need to be synced (A), create a db link to the other db (B). Create a procedure like the following to import evereything from the db linked (B) to the target db (A). create or replace PROCEDURE import_prod_schema as JobHandle number; js varchar2(9); — COMPLETED or STOPPED q varchar2(1) := chr(39);…
Leggi tutto
In questi giorni comincio a metter mano su questo nuovo tool che Synaptica ha acquistato, e usandolo un pochino si scoprono belle cose. Tra cui il fatto che Embarcadero ha integrato delle funzioni cross per il supporto della compressione Zip direttamente nella RTL library. Nella libreria “System.Zip” sono presenti diversi metodi per gestire la compressione…
Leggi tutto
Quanti con le nuove versioni di Ubuntu si sono strincazzati perchè non riescono a scriver l’indirizzo (di un server remoto o di una location che sanno a memoria) perchè la barra degli indirizzi è stata sostituita da una specie di bottoniera naviga cartelle (a mio avviso di una scomodità totale). Beh nel caso vi serva…
Leggi tutto
this function that i found on the Net allow your delphi code to access at environment variables of your Windows systems : function GetEnvVarValue(const VarName: string): string; var BufSize: Integer; // buffer size required for value begin // Get required buffer size (inc. terminal #0) BufSize := GetEnvironmentVariable( PChar(VarName), nil, 0); if BufSize > 0…
Leggi tutto
[lang_it] Immaginate di essere un agente commerciale che necessita di avere sempre con sé il proprio listino aggiornato e, con esso, immagini e schede tecniche dei propri prodotti. Immaginate di essere un magazziniere o un negoziante che ha la necessità di aggiornare l’inventario degli articoli presenti in magazzino, di censire una fornitura di nuovi pezzi…
Leggi tutto
function SendEMail(Handle: THandle; Mail: TStrings): Cardinal; type TAttachAccessArray = array [0..0] of TMapiFileDesc; PAttachAccessArray = ^TAttachAccessArray; var MapiMessage: TMapiMessage; Receip: TMapiRecipDesc; Attachments: PAttachAccessArray; AttachCount: Integer; i1: integer; FileName: string; dwRet: Cardinal; MAPI_Session: Cardinal; WndList: Pointer; begin dwRet := MapiLogon(Handle, PChar(”), PChar(”), MAPI_LOGON_UI or MAPI_NEW_SESSION, 0, @MAPI_Session); if (dwRet SUCCESS_SUCCESS) then begin MessageBox(Handle, PChar(‘Error while trying…
Leggi tutto
