Delphi-PRAXiS

Code-Formatierung

Mon, 08 Feb 2010 18:44:16 +0100

Kennt ihr das Problem ?
Ihr wollt ein Code-Fragment in die DP stellen. Schnell gemacht
1) Text markieren
2) Ctrl-C
3) Zur DP wechseln
4) Ctrl-V
5) Delphi-Code klicken
6) �rgern und "zu Fu�" Tabs entfernen und durch entsprechende Blanks ersetzen.

Das nachstehende kurze Programm ersetzt in einem im Clipboard stehenden Text Tabs durch Blanks und
stellt den ge�nderten Text wieder ins Clipbord.
Bevor jetzt jemand mit StringReplace etc. kommt : Die Tabs werden so durch
Blanks ersetzt, da� der folgende Text an der n�chsten definierten Tab-Position
steht.
Bei mir ist f�r Tabstops 3 eingestellt, andere bevorzugen 2 oder noch was anderes.
Dies kann durch �ndern der Konstanten "tablen" eingestellt werden.

In Zukunft wird in obigen Ablauf Punkt 3.5 ReplaceTabs klicken eingef�gt, daf�r entf�llt der
l�stige Punkt 6.

Vielleicht kann der eine oder andere das auch gebrauchen.

program ReplaceTabs;

{$APPTYPE CONSOLE}

uses
SysUtils, ClipBrd;

const
tablen=3;

FUNCTION Replace(const s:string):string;
var ps,pr:PChar; len:integer;
begin
SetLength(result,Length(s)*tablen);
if s='' then exit;
ps:=PChar(s);
pr:=pChar(result);
len:=0;
repeat
case ps^ of
#9 : begin
len:=tablen-len mod tablen;
while len>0 do begin
pr^:=' ';
inc(pr);
dec(len);
end;
end;
#10,#13 : begin
pr^:=ps^;
inc(pr);
len:=0;
end;
else begin
pr^:=ps^;
inc(pr);
inc(len);
end;
end;
inc(ps);
until ps^=#0;
pr^:=#0;
SetLength(result,Integer(pr)-Integer(PChar(s)));
end;

begin
with ClipBoard do if HasFormat(1) then AsText:=Replace(AsText);
end.

GPL mit Exception

Tue, 09 Feb 2010 02:25:15 +0100

hallo,

ich w�rde gerne mein shareware programm mit dem portable installer von PortableApps (Link: http://PortableApps.com/ ) installieren. das ding kommt angeblich unter gpl, allerding steht dann dort folgendes:

-- Zitat ----------------------------
;Copyright 2007-2009 John T. Haller of PortableApps.com
;Website: http://PortableApps.com/

;This software is OSI Certified Open Source Software.
;OSI Certified is a certification mark of the Open Source Initiative.

;This program is free software; you can redistribute it and/or
;modify it under the terms of the GNU General Public License
;as published by the Free Software Foundation; either version 2
;of the License, or (at your option) any later version.

;This program is distributed in the hope that it will be useful,
;but WITHOUT ANY WARRANTY; without even the implied warranty of
;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;GNU General Public License for more details.

;You should have received a copy of the GNU General Public License
;along with this program; if not, write to the Free Software
;Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.

;EXCEPTION: The PortableApps.com Installer can be used with open source
;applications licensed under OSI-approved licenses as well as freeware provided
;it is unmodified and it adheres to the current PortableApps.com Format Specification
;as published at PortableApps.com/development. It may also be used with commercial
;software by contacting PortableApps.com.
-- Zitat Ende -----------------------

jetzt meine frage. d�rfen die diese exception einfach hinzuf�gen? eigentlich dachte ich das durch solche zus�tze die gpl automatsch nicht mehr g�ltig ist, oder liege ich da falsch? :gruebel:

sogesehen ists auch nur ne modifiezierte version vom nsis, somit find ich das noch komischer.

Firebird : TreeView komplett in DB speichern?

Tue, 09 Feb 2010 09:07:19 +0100

Moin !

Hat jemand von euch ein St�ck Quellcode um einen TreeView in einer FireBird Datenbank zu speichern und wieder zu laden?

Wichtig w�ren dabei folgende Dinge:
* Die Struktur des Trees (eigentlich logisch :) )
* Die Sortierung
* Letzte Auswahl
* Status f�r ein- / ausgeklappte Nodes

Absolute Database oder Firebird das ist hier die Frage ...

Fri, 05 Feb 2010 10:31:54 +0100

Moin !

Da unsere Software in der n�chsten Version weg von properit�rem Dateiformat hin zu einer Datenbank wechseln soll, stellt sich im Moment die Frage - Welche Datenbank?

Wir haben eine Lizenz f�r Absolute Database 6 und damit auch schon einige Erfahrungen sammeln k�nnen. Die DB ist auch nicht schlecht, aber der Zugriff auf die Daten ausserhalb unseres Programms ist schwierig. Das geht nur �ber SQL Export. Sch�ner w�re da doch schon ein ODBC Treiber um direkt auf die Daten zuzugreifen.
Der Vorteil - finde ich - liegt aber dennoch in der sehr einfachen Handhabung von Absolute Database. Es werden keine Files ben�tigt und der Zuwachs der EXE Gr��e h�lt sich in Grenzen.

Die Suche nach einer Alternativen DB Componente ala Accuracer Database & Co hat schnell gezeigt das es den Finanziellen Rahmen sprengt :)

Ergo bin ich bei FireBird gelandet. Dort habe ich schon mal die Info gefunden ...
-- Zitat ----------------------------
�Optionale Ein-Datei Embedded-Version
-- Zitat Ende -----------------------

Da wir vermeiden wollen, eine ganze Datenbank Installation mitzuschleppen w�rde mich mal interessieren ob das mir Firebird m�glich ist. Also 1-x DLLs zur Anwendung packen und ich kann eine Firebird Datenbank nutzen?
Muss man daf�r vorher noch irgendwas einrichten am Kundensystem?

Dann das ZEOS .. Muss man das benutzen? Welche Vor oder Nachteile hat es im Bezug auf ADO / ODBC?

Kann mir jemand ein Freeware GUI empfehlen zur Firebird DB Administration / Erstellung / Auswertung / ...?

Kann mir jemand ein Beispiel geben f�r Delphi 2010 / "Ein-Datei Embedded-Version"? Oder gibts da evtl. was im Web?

Und zu guter letzt ... Ist es machbar das man die Firebird DB in Delphi im Daten-Explorer sieht? Wir haben allerdings nur Delphi Prof. 2007-2010.

Ach ja ... fast vergessen vor lauter Firebird Fragen ...
Wie gesagt geht es bei uns prim�r darum die Daten unserer Anwendung (Chart Plotting Tool) in einer Datenbank zu speichern. Der User darf aber von dem ganzen Datenbank "Kram" nichts mitbekommen, weil es vermutlich 99% unserer User nicht verstehen w�rden.
Ist hier Firebird trotzdem eine gute Wahl oder doch bei Absolute Database bleiben?

OpenVPN 2.1.1 compilieren unter WindowsXP

Mon, 08 Feb 2010 08:25:14 +0100

Hi,

ich hoffe damit kennt sich jemand aus und kann mir helfen. Ich muss den Quellcode von OpenVPN �ndern, damit man die Funktion zum speichern der Passw�rter benutzen kann, die bei neueren Versionen abgeschaltet ist. Wie und wo ich das �ndern muss wei� ich, meine Frage ist jetzt nur, wie kann ich das unter windows compilieren? Folgende Vroaussetzungen sind gegeben: MinGW, MSYS MSYSDat und NSIS sind installiert, Quellcode ist heruntergeladen, entzippt und ge�ndert. Auf mehreren Seiten habe ich bereits gelesen, dass entweder die makefile.win32 Datei oder die domake-win Datei compiliert werden m�ssen (ich habe nur domake-win), allerdings habe ich keine Ahnung wie das gehen soll und tutorials habe ich auch nicht gefunden.

Ich hoffe mal es hat jemand eine Idee wie das geht und kann mir helfen. Da dieser Thread nicht umsonst sein soll werde ich egal ob ich antworten bekomme oder nicht eine entsprechende kleine Doku hochladen, vorausgesetzt ich bekomms hin, damit andere, die m�glicherweise das selbe Problem haben und nicht weiter wissen, einen ansatzpunkt haben.

Gru�
AnyKey

Anmekrung: (ich habe mal oben C++ angegeben, weil OpenVPN in C++ geschrieben ist.)

Report ohne PageHeader & PageFooter exportieren (FastReport)

Sat, 06 Feb 2010 21:12:18 +0100

Hallo zusammen,

gibt es eine M�glichkeit, dass ich einen Report, der mit Fast Report erstellet wurde, ohne PageHeader und PageFooter exportieren kann. Ich m�chte dazu aber nicht jeden Report anfassen, wenn das irgendwie m�glich ist.

Gibt es da eine Option ?

Qt/C++: Objektorientierte DLLs und das plattform�bergreifend

Fri, 05 Feb 2010 21:08:39 +0100

Hallo!

Habe wieder eine Frage, die sich auf C++ mit Qt bezieht - ich hoffe, ihr k�nnt mir dennoch helfen.

Ich m�chte einige Klassen (von QObject abgeleitet) in externe Bibliotheken auslagern und diese dann in versch. Programmen verwenden. Das Ganze soll noch plattform�bergreifend sein (also kein COM, soll auch auf Linux/Mac laufen), da sonst der Vorteil von Qt verloren geht.

Der Grund, weshalb ich das hier in einem Delphi-Forum frage: Sollte es nicht (ohne weiteres) m�glich sein, wird das Projekt in Delphi ausgef�hrt, da ich dann auf die Plattformunabh�ngigkeit verzichte.

Vielen Dank,
Andreas

Programm im Hintergrund mit "Lese-Rechte" laufen lassen?!?

Mon, 08 Feb 2010 17:24:18 +0100

Hallo Zusammen,
ich habe Folgendes Problem: Ich m�chte ein Programm was mit Synaser l�uft im hintergrund laufen lassen. Aber es sollte Trotzdem noch den Seriellport abfragen, so dass es auch noch, im Hintergrund, auf Eingehende Strings Reagieren kann! Ich bekomme beides I-wie net hin :wall: :gruebel:
Und eine Sache ist ganz wichtig - es darf kaum Rechneleistung verbrauchen!
Kann mir jemand Helfen?!?
Vielen Dank im Voraus

dynamische Arrays in typitisierten Dateien speichern

Mon, 08 Feb 2010 21:06:36 +0100

Hallo,

ich habe ein Programm bei dem verschiedene Daten anfallen. Es handelt sich dabei um eine Art MSPaint-Klon. Wenn dort ein Objekt erzeugt wird (z.B. eine Linie) soll er alle Daten die n�tig sind f�r diese Linie speichern (Anfangsposition, Endposition, Stiftdicke etc.) Mit der Zeit werden so verschiedene Objekte erstellt, die alle in einer Liste gepeichert werden.
type Bild=record
objectscount: integer
objectlist: array of Tobjects; //enth�lt obengenannte Informationen
//....
end;

var Bild1: Tbild;
datei1: file of Tbild;

In dem Fall das es sich bei dem Objekt um eine Freihandzeichnung handelt, werden von JEDEM gezeichneten Pixel die Koordinaten gespeichert. D.H. in dem Fall enth�lt Tobjects einen dynamischen Array Pixels.

Wie speicher ich nun den record "Bild" am besten ab?
Ich hatte da an typistisierte Dateien gedacht (keine Datenbank n�tig).
write(datei1, Bild1)//Bild1 in Datei1 speichern
K�nnte es dabei besondere Probleme geben weil dieser Record dynamische Arrays enth�lt? Wenn ja wie l�se ich die?
W�rde auslesen �ber
read(datei1,Bild1)//Datei auslesen und in Bild1 speichern funktionieren?

Vielen Dank f�r die antworten.

mfg KahPee

Fehlerhafte CRLF<>CR-Umsetzung im RichEdit (D2009+)

Thu, 28 Jan 2010 18:59:46 +0100

http://qc.embarcadero. ... cmain.aspx?d=81621

Seit D2009 arbeitet SelStart und SelLength falsch.

Das RichEdit arbeitet intern nur mit #13, welches an vielen Stellen ausgeglichen wird, indem man bei Setzen von Text und beim Auslesen dieses gegeneinander austauscht.

.Text und .Lines haben also #13#10 und in .SelText, sowie im Edit-Inneren ist es nur #13.

Durch die �bersetzungen stimmen nun aber die Zeichenindizes absolut nicht mehr.

Hei�t, je Zeile verrutscht der Index um eine Stelle
und somit geht ab der 2. Zeile sowas nicht mehr:
S := RichEdit1.Text;
RichEdit1.SelStart := Pos(SearchText, S);
RichEdit1.SelLength := Length(SearchText);

Quelle: http://www.delphipraxi ... +mit+selstart.html

Was ich mich frage: Wieso ist das noch nicht aufgefallen?
D2009 gibt's ja schon 'ne Weile.

Excel und Delphi

Thu, 04 Feb 2010 16:00:06 +0100

Ich habe einen Excel-Server f�r den Export geschrieben (mit early binding). Damit kann man aus unserem Programm heraus alle m�glichen �nderungen, bis hin zu Pivottabellen und Diagramme erzeugen.

Das Ganze unterst�tzt mehrere Excel Versionen (97 bis 2007). Nun bin ich aber auf leider auf ein(zwei) Problem(e) gesto�en das sich nicht mehr so einfach l�sen l�sst:

1. Wichtig:
Seit Version 11 (2003) mu� ich die Zahlen, die in die Zellen geschrieben werden, ins !!! englische !!! Format umwandeln. Das w�hre nicht weiter schlimm, wenn jetzt nicht eine weitere Eigenheit aufgetaucht w�hre.

Soweit ich jetzt sagen kann, erkennt Excel ab 2003 keine "normalen" Datumswerte mehr. Bei Excel 2000 funktioniert es noch das Datum als "25.01.2010" in die Zelle zu schreiben und Excel erkennt die Eingabe als Datum. Bei Excel 2003 ist es lediglich Text . d.h. keine vern�nftige Sortierung, keine Berechnung, nichts.
Als Workaround habe ich das Zellenformat anhepasst, doch her kommt jetzt die Idiotie. Ich mu� das deutsche Datumsformat nehmen und das Datum als .AsDateTime (zum Gl�ck ist bei Excel und Delphi die 0 der 1.1.1900) eintragen. Dann erkennt Excel die Werte wieder. Jetzt zum eigentlichen Problem. Das funktioniert aber nur wenn ich das Datumsformat "h�ndisch" eingebe.

Das deutsche Datumsformat ist 'TT.MM.JJJJ', wiekann ich Excel nach "seinem" Datumsformat fragen um das sprachabh�nige Format zu bekommen und nicht 'dd.MM.yyyy' .

Mit GetLocaleInfo(GetUserDefaultLCID, LOCALE_SSHORTDATE, buff, 71) bekomme ich ja nur das Windowsformat.

2. (noch) unwichtig:
Bis einschlie�lich Excel 2003 kann ich die "benutzerdefinierten" Diagramme aus der Datei Xl8galry.xls auslesen und bereitstellen. Mit Excel 2007 geht das nicht mehr, da hier das Ganze anders genutzt wird. Die Diagramme liegen jetzt als crtx-Datei unter UserprofileAnwendungsdatenMicrosoftTemplatesCharts.

Es gibt jetzt einer Prozedur TExcelChart.ApplyChartTemplate ABER DIE FUNKTIONERT NICHT .
hat das schon jemand hingekommen?

Danke und Gru�
David

Rave und rtf - Geht nicht?

Fri, 22 Jan 2010 19:44:19 +0100

Hallo
ich habe in D2010 auf die Main-Form der Rave-Demo ein TRvRenderPDF und ein RvRenderRTF gezogen.
Speichere ich nun in der Druck-Vorschau den Report als PDF ab, bekomme ich auch ein PDF. Mache ich das selbe als rtf - Erzeugt es mir ein File von dem ich nicht wei� was drinnen ist.

Mache ich da prinzipiell was falsch?
Oder kann man da irgendwas konfigurieren?

Gruss
wo

Ich hab das ganze jetzt mal in D7 ausprobiert, da funktioniert es einwandfrei.

@Mods: Bitte den Beitrag nach BUGs verschieben

Brauche Hilfe zur Abfrage

Thu, 04 Feb 2010 16:12:40 +0100

Hi bin noch nicht so lange hir und brauche mal Hilfe!

Ich habe ein Programm das wenn ich auf den Button (Temperaturabfrage) klicke mir die Temperatur anzeigt!
Nun m�chte ich aber das, dass Programm nun alle 30 Sek. selber die Temperatur einlie�t wie kann ich das realisieren???

Sommerlogo ...

Thu, 04 Feb 2010 21:56:30 +0100

... hier in der DP, da fehlen die Sandalen. :mrgreen:

Wertetabellen und Funktionen

Fri, 29 Jan 2010 15:05:09 +0100

Hallo @ all! :hi:
Ich wollte mich mal an ein Programm setzten mit dem es m�glich ist aus einer Funktion eine Wertetabelle zu erstellen und vllt. die Funktion zu zeichnen. Daher m�chte ich wissen, ob es �berhaupt m�glich ist eine eingegebene Funktion (also jede beliebige) zu verarbeiten? :?:
Wenn dies nicht m�glich ist, k�nnte man ja am Anfang ausw�hlen von welchem Typ die Funktion ist (z.B.: a*sin(bx+c)+d) und dann die Parameter eingeben und den Definitions und wertebereich und die schrittfolge in der Wertetabelle. Dies m�sste doch dann m�glich sein oder?
Und dann wollte ich wissen ob man mit Delphi so einfach Funktionen darstellen kann?
Vielen Dank schon mal im Vorraus! :thumb: