Tag Archive for ‘delphi’ at Synaptica

Tag Archive for 'delphi'

Soft News - UBUNTU 8.10 e Lazarus .26

Pubblicato

il 31 October, 2008

. 0 Commenti

Mese di Ottobre eccezionale,
non ho memoria di un mese tanto attivo sul piano software internazionale, incredibile, le principali case software hanno fatto talmente tanti annunci di novita, da stravolgere il mondo prima del 2009.
In effetti tutto ciò è contestuale al PDC di Los Angeles, ma c’è stato anche l’anno scorso e non ci son stati altrettanti annunci.
In breve, cos’è successo sto mese :

Microsoft ha annuncitato la nuova versione “Windows 7″

UBUNTU (miglior distribuzione DeskTop Linux) si è migliorata parecchio vedi “http://wiki.ubuntu-it.org/IntrepidNoteDiRilascio”.

Phyton ha ufficializzato la sua ver. 3.0

Embarcadero ha annunciato Delphi/C++ 2009 , inoltre collabora con remObjects sul progetto annunciato “Prism”

E’ uscita la nuova versione di Lazarus (in breve Delphi Open Source e multi piattaforma)

sempre Microsoft sta confezionando il suo F#

Apple ha annunciato la sua nuova linea di MacBook

Android di Google è stato reso finalmente Open Source

a me pare incredibile, se fino a oggi l’informatica avanzava del 100% oggi siamo quasi a livello di caos… c’è gente come me che non ha mai visto realmente Windows Vista e ne sta uscendo un altro. Incredibile!!!
Magari mi son dimenticato anche qualcosa, chissà … Dimenticavo c’è stato anche l’hackIT a palermo….

a presto

Invia un messaggio all'autore

PRISM

Pubblicato

ivan

il 29 October, 2008

in Delphi .Net, Pascal, Programmazione e Articles

. 0 Commenti

This week there is a lot news about IT world, in first the new MS Windows 7 , another good news is the Embarcaer Delphi “PRISM”.

Delphi “PRISM”, is the DotNet environment of Embarcadero Delphi , this new version of Delphi is not a descendant of Delphi for DotNet, in fact it is the real implementation of Oxygene project maked by RemObject.

Highlights : cross-platform application generation, with full support for project MONO (linux), COCCOA (mac osx ) and the DotNet Framework 3.5. This Delphi version is a plug-in for Visual Studio, i hope that they continued to use the standard IDE of Delphi.
Now we attend the new Rad Studio from Embarcadero/CodeGear.

Here you can find a good screen cast

now is a news for us….
stay tuned…

Invia un messaggio all'autore

Tiburon -> Delphi 2009

Pubblicato

ivan

il 12 September, 2008

in Delphi .Net, Delphi w32s e Pascal

. 0 Commenti

Da qualche giorno è ormai disponibile la nuova versione di Delphi e C++ con enormi novità tecnologiche rispetto alle precedenti. Questa nuova versione codename “Tiburon” migliora drasticamente le performance dell’IDE e del compilatore/parser,tra le novità più ecclatanti vi sono :

Supporto ai generics (Tlist)

Completo supporto a Unicode

DataSnap completamente nuovo basato sullo std JSON per la comunicazione.

Attualmente alla lista delle cose che mi attendevo ne manca una non di poca importanza cioè Delphi2009 for DotNet , che sul sito di Embacadero non trovo nemmeno nella RoadMap… Ogni volta che vedo delle cose del genere mi torna in mente lo spettro di Kylix e delle aziende che vi ci avevano investito sopra!!.
Cosa molto carina invece è la possibilità di provare (cacchio solo per 14gg) le versioni trial del prodotto Enterprise scaricandole direttamente da Embarcadero all’indirizzo :

http://cc.codegear.com/free/delphi oppure http://cc.codegear.com/free/cppbuilder
la procedura di intallazione e richiesta dei codici questa volta è veramente smart e come dicono dalle mie parti veramente “sbattimento zero!”.

Domani a Milano vi sarà la presentazione di questi nuovi bei prodotti e ovviamente Synaptica andrà a far visita e porterà con sè qualche news …

Invia un messaggio all'autore

delphi drag & drop from shell (IDropTarget interface)

Pubblicato

ivan

il 2 September, 2008

in Delphi w32s, Pascal e Articles

. 0 Commenti

Per permettere a un applicazione in windows di accatere drag end drop bisogna obbligatoriamente pasare per la tecnologia com e astrarre l’interfaccia IDROP_TARGET. Questa procedura seppur non complicata descritta molto bene nei suoi aspetti per le applicazioni delphi dall’articolo riportato : http://pasotech.altervista.org/delphi/articolo87.htm permette di fare cose notevoli. Sicuramente la procedura seppur non difficile comporta qualche conoscenza specifica ed inserisce non poco codice all’interno della nostra applicazione, per comodità esiste un componente semplicisimo dei JEDI il TjvDropTarget che ci permette di fare esattemente la stessa cosa con uno sforzo estremamente ridotto. Basta implementare il metodo DRAGDROP del componente ad esempio :




 


procedure TForm1.JvDropTarget1DragDrop(Sender: TJvDropTarget;var Effect: TJvDropEffect; Shift: TShiftState; X, Y: Integer);


Var


List : TStringList;


i : integer;


begin


List := TStringList.Create;


try


  JvDropTarget1.GetFilenames(List);


  for i := 0 to List.Count - 1 do


    memoDin.Text := List.Text;


// DoOpenFile(List[i]);


finally


  List.Free;


end;

a presto ivan

Invia un messaggio all'autore

Associate your program with file extension

Pubblicato

ivan

il 30 June, 2008

in Delphi w32s, Pascal e Articles

. 0 Commenti

article source : http://www.delphi3000.com/articles/article_525.asp?SK=
author : Igor Siticov

For creating file associations you should make some registry changes and inform Windows explorer about your changes.

For launching your program as default for all unregistered file types just associate it for “*” file type.

The following unit includes realization of function for creating file association.
See comments in source for details.

unit utils;
interface
uses Registry, ShlObj, SysUtils, Windows;
procedure RegisterFileType(cMyExt, cMyFileType, cMyDescription, ExeName: string; IcoIndex: integer; DoUpdate: boolean = false);
implementation
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 adds HKEY_CLASSES_ROOT\.abc\(Default) = ‘Project1.FileType’
Reg.WriteString(”, cMyFileType);
Reg.CloseKey;
// Now create an association for that file type
Reg.OpenKey(cMyFileType, True);
// This adds HKEY_CLASSES_ROOT\Project1.FileType\(Default)
// = ‘Project1 File’
// This is what you see in the file type description for
// the a file’s properties.
Reg.WriteString(”, cMyDescription);
Reg.CloseKey; // Now write the default icon for my file type
// This adds HKEY_CLASSES_ROOT\Project1.FileType\DefaultIcon
// \(Default) = ‘Application Dir\Project1.exe,0′
Reg.OpenKey(cMyFileType + ‘\DefaultIcon’, True);
Reg.WriteString(”, ExeName + ‘,’ + IntToStr(IcoIndex));
Reg.CloseKey;
// Now write the open action in explorer
Reg.OpenKey(cMyFileType + ‘\Shell\Open’, True);
Reg.WriteString(”, ‘&Open’);
Reg.CloseKey;
// Write what application to open it with
// This adds HKEY_CLASSES_ROOT\Project1.FileType\Shell\Open\Command
// (Default) = ‘"Application Dir\Project1.exe" "%1"’
// Your application must scan the command line parameters
// to see what file was passed to it.
Reg.OpenKey(cMyFileType + ‘\Shell\Open\Command’, True);
Reg.WriteString(”, ‘"’ + ExeName + ‘" "%1"’);
Reg.CloseKey;
// Finally, we want the Windows Explorer to realize we added
// our file type by using the SHChangeNotify API.
if DoUpdate then SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil);
finally
Reg.Free;
end;
end;
end.

Invia un messaggio all'autore

C++ & Delphi (obj & dll)

Pubblicato

ivan

il 29 May, 2008

in Delphi w32s, Programmazione e Articles

. 0 Commenti

Sicuramente lo sapevate già, ma Delphi vi da la possibilità di inglobare nel vostro eseguibile codice C++ in modi diversi.
Questo nonostante la vastità di componenti VCL oggi disponibili è sicuramente un fattore a grande vantaggio dell’ambiente , considerando la vastità di codice scritto in C/c++ per i diversi sistemi.

Un modo abbastnaza interessante e a basso livello, è quello di includere i file “.obj” all’interno della vs applicazione.
I file obj li tratterete esattamente come dll ma per includerli nelle vostre classi è necessaria la direttiva al compilatore LINK strutturata come segue:
{$LINK “obj_filename”}

ex :

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$LINK mio_obj.obj}
{$R *.dfm}
end.

un articolo interessante e ben struttarato sull’argomento, che merita sicuramente di essere letto se non si conosce esattamente la tecnologia : http://rvelthuis.de/articles/articles-cppobjs.html

come al solito i miei articoli sono un po stringati, per ulteriori informazioni o approfondimenti scrivete a info@synaptica.info…..

a presto
ivan

Invia un messaggio all'autore

Delphi for DotNet - WebForm per fare l’upload di un file

Pubblicato

ivan

il 23 April, 2008

in Delphi .Net e Programmazione

. 0 Commenti

COME CREARE UNA PAGINA PER ESEGUIRE GLI UPLOAD CON ASP.NET IN DELPHI PER .NET

A differenza del caro e buon veccio Asp in cui creare una pagina di upload era simile ad un parto, nel nuovo ambiente .Net di Microsoft la cosa è resa molto più semplice grazie all’introduione della classe : System.Web.UI.HtmlControls.HtmlInputFile.

In questo esempio viene creata una pagina ASP.Net da inserire nel vs. progetto per poter permettere agli utenti di eseguire un upload di un file.

Come ben sapete una pagina ASP.Net in delphi 8.0 costituita dal relativo file .aspx e dal code behind contenuto nella dll del progetto. Il “code behind” viene generato in funzione del file della pagina .pas (scritto nel classico object pascal).

Analizziamo cosa dobbiamo inserire nel file .aspx nel nostro caso la pagina l’ho chiamata wf_upload_file.aspx che contiene il codice :

<%@ Page language="c#" Debug="true" Codebehind="wf_upload_file.pas" AutoEventWireup="false" Inherits="wf_upload_file.Twf_upload_file" %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title></title>
<meta name="GENERATOR" content="Borland Package Library 7.1">
</head>
<body ms_positioning="GridLayout">
<form id=Form1 method=post enctype="multipart/form-data" runat="server">
<input id=MyFile type=file runat="server"><br>
<input type=submit value="Invia query">
<asp:textbox id=TextBox1
style="Z-INDEX: 1; LEFT: 14px; POSITION: absolute; TOP: 86px"
runat="server" height="93" width="691px" textmode="MultiLine">
</asp:textbox>
<asp:image id=Image1
style="Z-INDEX: 2; LEFT: 118px; POSITION: absolute; TOP: 214px"
runat="server" height="211px" width="243px">
</asp:image>
</form>
</body>
</html>

La riga di ns interesse è :

"<input id=MyFile type=file runat="server">"

dove l’interprete .Net crea un oggetto il cui nome è “MyFile” questo oggetto fa parte della classe : System.Web.UI.HtmlControls.HtmlInputFile.

La parte di “code behind” il file wf_upload_file.pas :

unit wf_upload_file;
interface
uses
System.Collections, System.ComponentModel,
System.Data, System.Drawing, System.Web, System.Web.SessionState,
System.Web.UI, System.Web.UI.WebControls, System.Web.UI.HtmlControls;
type
Twf_upload_file = class(System.Web.UI.Page)
{$REGION ‘Designer Managed Code’}
strict private
procedure InitializeComponent;
{$ENDREGION}
strict private
procedure Page_Load(sender: System.Object; e: System.EventArgs);
strict protected
TextBox1: System.Web.UI.WebControls.TextBox;
MyFile : System.Web.UI.HtmlControls.HtmlInputFile;
Image1: System.Web.UI.WebControls.Image;
procedure OnInit(e: EventArgs); override;
private
public
{ Public Declarations }
end;
implementation
uses borland.vcl.sysutils;
{$REGION ‘Designer Managed Code’}
/// <summary>
/// Required method for Designer support — do not modify
/// the contents of this method with the code editor.
/// </summary>
procedure Twf_upload_file.InitializeComponent;
begin
Include(Self.Load, Self.Page_Load);
end;
{$ENDREGION}
procedure Twf_upload_file.Page_Load(sender: System.Object; e: System.EventArgs);
begin
// TODO: Put user code to initialize the page here
If filMyFile.PostedFile <> nil then
Begin
TextBox1.Text := ‘ non nullo ‘;
TextBox1.Text := TextBox1.Text + MyFile.PostedFile.FileName + #10#13;
TextBox1.Text := TextBox1.Text + ‘dimensione : ‘ + Int64(filMyFile.PostedFile.ContentLength).ToString + #10#13;
filMyFile.PostedFile.SaveAs(‘C:\Inetpub\wwwroot\mio_progetto\up_img\’ + ExtractFileName(filMyFile.PostedFile.FileName));
Image1.ImageUrl := ‘up_img/’ + ExtractFileName(MyFile.PostedFile.FileName);
End
Else
Begin
End;
end;
procedure Twf_upload_file.OnInit(e: EventArgs);
begin
//
// Required for Designer support
//
InitializeComponent;
inherited OnInit(e);
end;
end.

Da notare l’obbligatorietà della dichiarazione dell’oggetto MyFile all’interno della classe che definisce la pagina, che non avviene in automatico, anche se dovrebbe delphi 8.0 riconoscere tutti gli oggetti definiti nella pagina .aspx e mantenerne l’allineamento con il .pas. Nell’evento Page_Load viene implementato il codice per salvare il file inviato dall’utente in una posizione del disco.

Ho aggiunto l’uso della libreria uses borland.vcl.sysutils; s per poter accedere alla funzione ExtractFileName della vcl semplicemente perchè non conosco la funzione che esegue le stesse cose nel .Net framework.

Spero che l’articolo sia comprensibile, l’ho effettivamente scritto un po di fretta.

Ciao a tutti

Ivan ….

Invia un messaggio all'autore

Delphi for pHp v2.0

Pubblicato

ivan

il 18 April, 2008

in Programmazione e pHp

. 0 Commenti

Rilascio ufficiale di Delphi for pHp

Da CodeGear è stata rilasciata la nuova versione di Delphi4php … interessanti le features sulla carta, cosa che spicca è l’integrazione dello Zend Framework con la VCL per php.
Personalmente non ho ancora provato il prodotto, ma da quello che si evince dalla documentazione ufficiale, non dovrebbe esser male.

il link delle nuove implementazioni : http://www.qadram.com/vcl4php/docwiki/index.php/What_is_new_in_Delphi_for_PHP_2.0 Leggi il resto dell’articolo ‘Delphi for pHp v2.0′

Invia un messaggio all'autore

Cool Stuff [Flussi informatici liberi]

Pubblicato

ivan

il 10 April, 2008

in PLC, Pascal e Programmazione

. 0 Commenti

Dal portale di lazarus ho trovato un sito scritto in italiano , molto bello e ben articolato, con poche cose ma precise e interessanti. Anche il nome del sito mi piace molto : flussi informatici liberi .
In questo sito si parla di sviluppi open source e di programmazione per i sistemi plc, il tutto basato su piattaforme open ,comprese le librerie di interfacciamento con i Siemens S5 e S7 via seriale per più sistemi operativi.

molto interessante e gradevole
dateci un okkio

a presto
i

Invia un messaggio all'autore

Il gestionale synapse gira sotto Linux

Pubblicato

ivan

il 7 April, 2008

in Articles

. 0 Commenti

Synapse , ERP by Synaptica

Grazie a wine, il nostro gestionale (Synapse) sviluppato con tecnologia win32 funziona perfettamente anche sulla piattaforma Linux.
Attualmente il gestionale è ancora una beta, e si pensa passerà in alfa entro la fine del prossimo mese, grazie alle tecnologie utilizzate garantisce un estrema flessibilità, e una notevole riduzione di costi dovuto al fatto di non dover acquistare licenze addizionali per il suo funzionamento.

Tecnologie utilizzate :

Lato Server :
- DB : Firebird 1.5 in versione superserver / embedded
- Servizi : Cross JAVA

Lato Client :
- Piattaforma w32 sviluppata in Delphi 7.0
- Piattaforma Web sviluppata con pHp , possibili porting per ASP.Net e JSF

a presto

Invia un messaggio all'autore