It isn’t a big thing but user-friendly to let your user drop some files in your PowerBuilder application. Maybe to import, merge, strip, archive, …. you name it

1. Insert the external functions to your window object.

function ulong DragQueryFileW( ulong hDrop, ulong iFile, ref string LPTSTR, ulong cb ) library 'shell32.dll'
subroutine DragAcceptFiles(ulong h, boolean b ) library 'shell32.dll' 

2. Insert a custom event with ID “pbm_dropfiles” to you window object and insert some code like this.

string     ls_filename
ulong     ll_fileCount
ulong     ll_index
long        ll_row

ll_fileCount = DragQueryFileW(Message.WordParm,-1,ls_filename,0)
ls_filename = space(255)
for ll_index = 1 to ll_fileCount
    DragQueryFileW(Message.WordParm,ll_index - 1,ls_filename,255)
    ll_row = dw_files.insertRow ( 0 )
    dw_files.setItem ( ll_row, "filename", ls_filename);
next 

3. Make sure you enabled and disabled Drop behavior in open and close event of the window object.

DragAcceptFiles(handle(this),true) //open

DragAcceptFiles(handle(this),false) //close

That’s it!

If you like it

Insert following lines in your pb.ini to get this look.

[PB]
...
EditorColor0=31777504 20197673
EditorColor1=65280 20197673
EditorColor2=65280 20197673
EditorColor3=31777504 20197673
EditorColor4=31777504 20197673
EditorColor5=31777504 20197673
EditorColor6=31777504 20197673
EditorColor7=32768 1073741824
EditorColor8=31777504 20197673
EditorColor9=255 20197673
EditorColor10=31777504 20197673
EditorColor11=255 20197673
EditorColor12=8421504 20197673
EditorColor13=255 20197673
EditorColor14=16776960 20197673
...

[colors]
color1=15000288
color2=16777215
color3=3420457
color4=16777215
color5=16777215
color6=16777215
color7=16777215
color8=16777215
color9=16777215
color10=16777215
color11=16777215
color12=16777215
color13=16777215
color14=16777215
color15=16777215
color16=16777215

So back to topic: What is this post about? Inspired by a small discussion in the Powerbuilder 12.5 beta newsgroup I created a small plugin to easily create some Structures and NonVisualObjects from a Datawindow.

This is very useful if you want to transfer data from or to a Datawindow by dot notation. If you have a lot of fields it can be a very painful job to create the Nonvisual and enter the variables in the correct order. Because of this Bruce Armstrong created a small tool called “Dw2Struct” that can do this for you in PB Classic. What I do is to extend the tool for NonVisuals and build a add-in around it.

So take a look at the code and the binaries. The Installation is easy. Just put it in a directory where Powerbuilder 12.5 .NET looks for add-ins. You can see what paths are observed by going to Extras->Options->Add-In. If you are not sure where to copy it, enter the path where you unpack the downloaded files. After restart the IDEs shows you two new entries in context menu of Datawindow. That’s it.

Have fun!

Links:

• PB-Addin-Dw2Struct.zip
• GitHub

Links:

GitHub

Links:

GitHub

Das neue Board befindet sich jetzt hier. Als Engine nutze ich das auf DotNetNuke basierende Vivo. Vivo selbst und die Community sind noch im Aufbau, weswegen es mit Sicherheit an der ein oder anderen Ecke haken wird. Also – Einfach mal reinschauen.

Links:

• www.powerbuilder.devbar.de
• vivo
• Ning

Eines der interessantesten Features in Powerbuilder .NET ist die Verwendung von WPF (XAML) zur Definition der Benutzeroberfläche. Dabei ist es nicht nur möglich Controls auf dem Fenster mit XAML zu beschreiben, sondern auch innerhalb von Datawindows (Custom Control). In dieser kleinen Beispielanwendung bette ich ein 5-Sterne-Rating-XAML-Control zur Bewertung von Filmen in ein Datawindow ein und “binde” es an die enthaltenen Daten.

Überblick

Der Source und das Tool können hier heruntergeladen werden. Das Projekt besteht aus einem Fenster, einem Datawindow, ein paar Ressourcen und einem Assembly (RatingControlSample.dll). Das Assembly enthält  das Rating-Control, dass wir im Datawindow verwenden wollen (gefunden auf Nick Andersson’s Blog). Um mir die Arbeit ein wenig zu vereinfachen, habe ich mir ein External-Datawindow gebaut, das meine Filme enthält. Natürlich könnte hier auch eine Datenbank oder ein SOAP-Service als Datenquelle genutzt werden.

Vorgehensweise

Das Erstellen des Projekts, des Fensters und des Datawindows ist wie aus Powerbuilder Classic bekannt.

1. Das Assemly aufnehmen

Dafür sucht ihr im Navigator(links) den Bereich “References” und wählt “Add Reference”. Anschließend müsst ihr per “Browse” das gewünschte Assembly auswählen.

2. Das Custom Control hinzufügen

Wenn ihr im Datawindow-Painter seid, gibt es in eurer Toolbox einen Eintrag “Custom Control”. Zieht das Control auf das Datawindow und es öffnet sich ein neuer Dialog. Das Wichtige hier ist der XAML-Code, der eingefügt werden muss.

<RatingControl xmlns="clr-namespace:RatingControlSample;assembly=RatingControlSample" Width="87" Height="15" />

Die restlichen Felder kann man erstmal leer lassen.

3. Das Control mit den Datawindow verbinden

Um das Datawindow mit den Daten zu binden, sind folgende Eigenschaften des Controls wichtig:

• Table und Column: Dies ist die Tabelle und die Spalte die in das Control übergeben werden soll. Im Fall eines External-Datawindows muss nur Column gefüllt werden. In diesem Fall wird Column mit “rating” gefüllt.
• Content: Hier wird der Name der Property angegeben, in die der Wert aus “Column” geschrieben werden soll. Selbstverständlich müssen die Datentypen kompatibel sein. Für das Beispiel sollte hier “RatingValue” stehen, da die entsprechende Eigenschaft zum Einblenden der Sterne so heißt. Die Eigenschaft kann Werte von 1 bis 5 aufnehmen, je nachdem wieviele Sterne vergeben werden.
• Keyclause: Hier wird die Bedingung angegeben, die zum Laden der Tabelle genutzt werden soll. Ich brauche dies in meinem Beispiel eigentlich nicht, da ich auf ein External-Datawindow zurückgreife.
• XAML Syntax: Hier kann die in Schritt 2 eingegebene Syntax bearbeitet werden.

Wenn ihr das Datawindow verwendet, wird das Control entsprechend den Daten aus dem DW geladen. Wenn der Anwender die Anzahl der Sterne verändert, wird der entsprechende Wert in das Datawindow zurückgeschrieben.

Viel Spaß beim Ausprobieren

Links:

• MovieCat downloaden
• Nick Andersson’s Blog

Download

Hier gibts meine Brush-Datei um das Highlighting zu erweitern

• shBrushPowerbuilder

Installation

1. Datei in das Verzeichnis /wp-content/plugins/syntax-highlighter-and-code-prettifier/scripts auf eurem Server uploaden
2. In der Datei syntax-highlighter-and-code-prettifier/syntax-highlighter.php die Zeile

   <script type="text/javascript" src="<?php echo $current_path; ?>scripts/shBrushPowerbuilder.js"></script>

   einfügen (vor der Zeile <script type=”text/javascript”> und hinter den Standardscripten).

Anwenden

Wenn man jetzt einen Block highlighten möchte, verwendet man dazu folgende Syntax (Editor im HTML-Modus) <pre class=”brush: powerbuilder”>Code</pre>.

Hier kann man das ganze mal in freier Wildbahn betrachen

OLEObject adoRecordset
String  ls_DNSDomain, ls_Query, ls_Name
String  ls_Type, ls_Value
String  ls_Colname[], ls_Coltype[], ls_Date, ls_Time
Long    ll_nextrow, ll_Value
Integer li_rc, li_col, li_max
DateTime ldt_Value

this.Reset()

// Setup ADO objects
li_rc = adoCommand.ConnectToNewObject("ADODB.Command")
If of_ConnectError(li_rc, "ADODB.Command") Then
	Return -1
End If

li_rc = adoConnection.ConnectToNewObject("ADODB.Connection")
If of_ConnectError(li_rc, "ADODB.Connection") Then
	Return -1
End If

adoConnection.Provider = "ADsDSOObject"
adoConnection.Open("Active Directory Provider")
adoCommand.ActiveConnection = adoConnection

// Determine the domain
li_rc = adoRootDSE.ConnectToObject("LDAP://RootDSE")
If of_ConnectError(li_rc, "ADODB.Connection") Then
	Return -1
End If

ls_DNSDomain = adoRootDSE.Get("defaultNamingContext")

// Construct the SQL syntax query
ls_Query = "SELECT "
li_max = Integer(this.Object.DataWindow.Column.Count)
For li_col = 1 To li_max
	ls_Name = this.Describe("#" + String(li_col) + ".Name")
	ls_Type = Left(this.Describe(ls_Name + ".ColType"), 5)
	If li_col = li_max Then
		ls_Query += ls_Name + " "
	Else
		ls_Query += ls_Name + ", "
	End If
	ls_Colname[li_col] = ls_Name
	ls_Coltype[li_col] = ls_Type
Next
ls_Query +=   "FROM 'LDAP://" + ls_DNSDomain + "' "
ls_Query +=  "WHERE " + as_where

try
	// Run the query
	adoCommand.CommandText = ls_Query
	adoRecordset = adoCommand.Execute
	// Enumerate the resulting recordset
	Do Until adoRecordset.EOF
		// Copy values from recordset to datastore
		ll_nextrow = this.InsertRow(0)
		For li_col = 1 To li_max
			ls_Name = ls_Colname[li_col]
			choose case ls_Coltype[li_col]
				case "char("
					// string value
					ls_Value = String(adoRecordset.Fields(ls_Name).Value)
					this.SetItem(ll_nextrow, ls_Name, ls_Value)
				case "numbe"
					// numeric value
					ll_Value = Long(adoRecordset.Fields(ls_Name).Value)
					this.SetItem(ll_nextrow, ls_Name, ll_Value)
				case "datet"
					// datetime value
					ls_Value = String(adoRecordset.Fields(ls_Name).Value)
					ls_Date = Left(ls_Value, Pos(ls_Value, " ") - 1)
					ls_Time = Mid(ls_Value, Pos(ls_Value, " ") + 1)
					ldt_Value = DateTime(Date(ls_Date), Time(ls_Time))
					this.SetItem(ll_nextrow, ls_Name, ldt_Value)
			end choose
		Next
		// Move to the next record in the recordset
		adoRecordset.MoveNext
	Loop
	// Close the connection
	adoRecordset.Close
catch ( oleruntimeerror orte )
	MessageBox("OLERuntimeError", orte.Text)
end try

// Close the connection
adoConnection.Close

// Apply any filter or sort
this.Filter()
this.Sort()

Return this.RowCount()

Juchu! Am 21. April war es tatsächlich soweit. Im geschlossenen Sybase-Downloadbereich konnte man die finale Version von Powerbuilder 12 herunterladen. Für alle nicht permanenten Sybasekunden wie mich, kam ein paar Tage später die Trial-Version.

Die dickste Änderung in der neuen Version ist die vollständige Integration von Powerbuilder in die Visual Studio Shell. Powerbuilderanwendungen laufen vollständig (100% fullmanaged) in .NET. Das Entwickleln von nativen Win32-Anwendungen ist nur noch mit der zwar mitgeleiferten, aber zur 11.5 kaum weiterentwickelten, Powerbuilder “Classic” möglich.

Gerade für mich als .NETer ist es natürlich reizvoll jetzt endlich sowohl Powerbuilder als auch C# in einer Entwicklungsumgebung zu sehen (wie oft habe ich mit Intellisense in PB herbeigewünscht). Allerdings haben mich Beta und CTP was Stabilität und Geschwindigkeit angeht eher enttäuscht.

Ich werde mich die nächsten Tage ransetzen und mal ein bischen programmieren. Ergebnisse werde ich euch natürlich wissen lassen.

Links:

• Download Powerbuilder 12 Trial
• Wiki-Artikel zu Powerbuilder