Delphi-PRAXiS

Bild in TRichEdit einf�gen

Sun, 14 Mar 2010 21:55:07 +0100

Hallo,

ich benutze TurboDelphi und tue mich daher grunds�tzlich schwer, zus�tzliche Komponenten zu benutzen. Au�erdem ist mein Programm mit mehreren tausend Zeilen schon fertig, so dass ich auch von daher gern bei TRichEdit bleiben m�chte!

Wie bekomme ich dort ein Bild (z.B. TBitmap) hinein?

Ich habe im Netz nur Hilfen gefunden, wie man das mit fremden Komponenten machen kann. Einziger Strohhalm schien mir das hier (Link: http://www.delphipages ... thread.php?t=29102 ). Davon ausgehen habe ich das probiert, was aber leider nicht klappt: Procedure TForm1.Button1Click(Sender: TObject);
Var
Bild : TImage;
Begin
Bild:=TImage.Create(nil);
Try
Bild.Picture.Bitmap.LoadFromFile('test.bmp');
RichEdit1.InsertControl(Bild);
Finally
Bild.Free;
End;
End;
Kann mir bitte jemand helfen?

Gru�, Alex

Suche Komponente - Optik wie Outlook 2010 Optionen

Mon, 15 Mar 2010 15:13:55 +0100

Hallo zusammen.

Kennt jemand Komponenten mit denen man eine Optionenmaske bauen kann die die Optik hat wie im neuen Outlook 2010 ??

Aktuell nutzen wir an der Stelle ein Tabbed Notebook aber das ist irgendwie h��lich ;-)

F�r alle die kein Outlook 2010 haben, habe ich mal nen Screenshot begef�gt.

Indy 10 (HTTP-Server), Firefox 3.5 und jQuery.post

Fri, 19 Feb 2010 10:52:11 +0100

Ich musste vor Kurzem feststellen, dass Parameter, die aus Firefox heraus mittels jQuery.post an
einen Indy HTTP-Server �bergeben werden, nicht verwendet werden k�nnen.

$.post('/test', { p1: '1', p2: '2' }, null);

Die Paramter sind �ber ARequestInfo.FormParams sehr wohl zu sehen, k�nnen aber mit
ARequestInfo.Params.Values nicht angesprochen werden.
Nach einiger Suche ist mir dann aufgefallen, dass Firefox im Gegensatz zu, zum Beispiel Opera,
als Content-Type nicht "application/x-www-form-urlencoded" sondern
"application/x-www-form-urlencoded; charset=UTF-8" sendet, was Indy dazu veranlasst, nicht
LRequestInfo.UnparsedParams sondern LRequestInfo.QueryParams zu verwenden.

IdCustomHTTPServer.pas (Zeile 859 - 866)

if ParseParams then begin
if TextIsSame(LRequestInfo.ContentType, 'application/x-www-form-urlencoded') then begin {Do not Localize}
LRequestInfo.DecodeAndSetParams(LRequestInfo.UnparsedParams);
end else begin
// Parse only query params when content type is not 'application/x-www-form-urlencoded' {Do not Localize}
LRequestInfo.DecodeAndSetParams(LRequestInfo.QueryParams);
end;
end;

Ich habe mir an dieser Stelle damit geholfen, dass ich Zeile 860 durch folgende ersetzt habe:

if TextIsSame(LRequestInfo.ContentType, 'application/x-www-form-urlencoded') or TextIsSame(LRequestInfo.ContentType, 'application/x-www-form-urlencoded; charset=UTF-8') then begin {Do not Localize}

Preisfrage: Habe ich etwas �bersehen, oder ist das tats�chlich ein Bug in den Indys?

Nachtrag: jQuery.get funktioniert auch mit Firefox ohne Probleme.

Windows 7: referenzauswertung wurde v. server zur�ckgesendet

Mon, 15 Mar 2010 16:50:23 +0100

Hallo!

Bezugnehmend auf dieses Thema http://www.delphipraxi ... blem+ntdlldll.html , in dem es um die Windows 7 Kompatibilit�t von Delphi (2010) und die Einbindung des Windows 7 Manifestes geht, habe ich nun ein neues Problem.

Wenn die UAC nicht aktiviert ist, gibt es kein Problem. Mit aktivierter UAC gibt es beim Starten des meisten meiner Programme die Fehlermeldung

-- Zitat ----------------------------
Referenzauswertung wurde vom Server zur�ckgesendet
-- Zitat Ende -----------------------

Laut der Forenantworten die ich �ber Google ermittelt habe ist der eindeutiger Tenor: "Deaktivier' halt einfach die UAC!". Das kann ich meinen Kunden nicht zumuten; deshalb die Frage was ich noch tun kann/soll/muss, damit diese Meldung nicht kommt.

Die Meldung tritt sowohl bei einem PC mit Dom�ne, als auch bei einem ohne Dom�ne auf. Bei Beiden ist jeweils der Admin angemeldet.

Falls es an meinem Manifest liegen sollte, hier die .ini f�r den Manifest-Creator von himitsu ( http://www.delphipraxi ... t=manifest+creator ):

-- Zitat ----------------------------

Version=0.0.0.0
Name=Mein Programmname
Type=Win32
VersionFormFile=
Architecture=X86
Language=
PuplicKey=
Description=
ExecutionLevel=3
UIAccess=1
SupportedOS_Windows Vista=1
SupportedOS_Windows Sieben=1
FileHash=0
HelpDir=0
Design=1
FileVersion=0
Manifest=
Resource=

-- Zitat Ende -----------------------

Suche Erkl�rung f�r SQL-Syntax

Mon, 15 Mar 2010 11:37:24 +0100

hallo zusammen,

bei einigen "Fremd"-Abfragen sind mir folgende Konstrukte �ber den Weg gelaufen, f�r die ich bisher keine vern�nftige Erkl�rung gefunden habe:

select 1 from ...

...
where 1=1
and .....

order by 1,2 ...

wobei ich bisher nur f�r das "order by 1.." als Erkl�rung gefunden habe, die Zahlen bez�gen sich auf das entsprechende Feld in der Select-Anweisung:

select Vorname, Nachname, Strasse ..
...
order by 2,1

entspricht

select Vorname, Nachname, Strasse ..
...
order by Nachname, Vorname

K�nnt Ihr mir weiter helfen?

Gru�
K-H

Inhalt einer .zip Datei anzeigen

Mon, 15 Mar 2010 19:27:30 +0100

Hey hey Leute,

Also ich bin grade dabei einen "Entpacker" zu programmieren. Ich bin daran gescheitert den Inhalt der ge�ffneten .zip Datei anzeigen zu lassen.
Ich benutzte die Abbrevia Komponente.

Meine �berlegung
- das ge�ffnete Archive �ffnen // abzipper1.openarchive(filename);
- die liste der Items auslesen // abzipper1.ziparschive.Itemlist;
ist das �berhaupt richtig?
und wenn ja, wie �bertrage ich dann jedes einzelnes Item in meine listview?

gru�

Mathias

Edit // Ich wei� nun wie man die anzahl der Dateien z�hlt
abzipper1.count; // nicht grade schwer ^^
Wie f�ge ich nun jede einzelne Datei in meine Listview ein?

Datenbankzugriff mit Dienst �bers Netzwerk funtioniert nicht

Fri, 12 Mar 2010 09:29:39 +0100

Hallo Leute,

ich bin echt am verzweifeln.
Seit Tagen habe ich folgendes Problem:

Ich habe einen Server S auf dem ein von mir geschriebener Dienst l�uft.
Dieser Dienst soll mit ADO-Komponenten auf eine Access Datenbank auf einem Rechner A zugreifen.
Der Dienst meldet sich an dem Server unter dem Benutzernamen paz an.
Der Benutzername unter dem der Rechner A l�uft lautet KR.
Die Access-Datenbank ist nicht von mir. Ich kann sie auch nicht anpassen. Der Datenbank-User hei�t admin. Ein Passwort ist nicht vergeben.

Der Verbindungsaufbau l�uft folgenderma�en:

ADOConnection.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;User=admin;DataSource=\IP_Rechner_AmdhprogsKR_HOST.mdb;Mode=Share Deny None;Persist Security Info=False;';
ADOConnection.LoginPromt:=false;
ADOConnection.Connected:=true;

Der Verbindungsaufbau scheitert. Ich erhalte folgende Fehlermeldung:
Das Microsoft Jet-Datenbankmodul kann die Datei '\IP_Rechner_AmdhprogsKR_HOST.mdb' nicht �ffnen. Sie ist bereits von einem anderen Benutzer exclusiv ge�ffnet, oder Sie ben�tigen eine Berechtigung, um die Daten lesen zu k�nnen.

Prinzipiell sollte es jedoch funktionieren.
Ich habe den Datenbankzugriff so bereits in einem normalen Programm (kein Dienst) realisiert und er hat super funktioniert.
Weiterhin l�uft der Datenbankzugriff, wenn ich den Dienst beim Server unter dem User Administrator anmelde.

Hat jemand von euch eine Ahnung wie ich mein Problem l�sen kann?

SQLite ERD und Script

Tue, 16 Mar 2010 08:28:19 +0100

Hallo,

das Problem ist folgendes, ich will/muss in meinem DelphiProjekt mit einer SQLite Datenbank arbeiten, habe mir ein Tool geladen mit dem ich eine SQLite Datenbank �ber eine Oberfl�che erstellen kann und dies auch getan, verbinden kann ich mich auch aus Delphi, passt also alles so weit. Allerdings brauche ich zu meiner Datenbank auch ein ERD, meine Frage also, kennt jemand ein Tool mit dem es m�glich ist ERD's f�r SQLite zu erstellen, Toad Datamodeler kann es z.B. nicht. W�nschenswert w�re vielleicht noch, dass ich aus diesem ERD auch noch ein Script zur erstellung der Datenbank erzeugen k�nnte, damit ich sie bei bedarf aus meiner Anwendung heraus erstellen kann, falls sie z.B. nicht existiert. Gesucht habe ich schon danach, aber au�er "Dia" nichts gefunden, dort habe ich aber noch nicht reingeschaut, glaube nach dem was ich gelesen habe aber auch nicht das es das beherrscht was ich haben will.

W�re super wenn mir jemand helfen k�nnte!

[SPS/AWL] Ausgang �ber einen Taster invertieren

Mon, 15 Mar 2010 18:46:27 +0100

Hi zusammen,

ich m�chte �ber einen Taster einen Ausgang invertieren. D.h. ich muss die steigende Flanke auswerten.

Das habe ich mittels AWL (Anweisungsliste) nach langem Probieren umgesetzt und funktioniert auch. Aber mir kommt es sehr umst�ndlich vor, da ich 3 Merkerbits brauche.
IM folgenden ein funktionierender Code. Wobei ich nicht wei�, ob sich hier jemand mit AWL auskennt. :gruebel:

// steigende Flanke des Tasters ermitteln
U "Taster" // Eingang
FP "Tastersignal" // Merker 1
= "Taster_Pos_Flanke" // Merker 2

// Lampe ausschalten
U "Taster_Pos_Flanke"
U "Lampe" // Ausgang
R "Lampe_Neu" // Merker 3

// Lampe einschalten
U "Taster_Pos_Flanke"
UN "Lampe"
S "Lampe_Neu"

// Selbsthaltung, da positive Flanke im n�chsten Zyklus nicht mehr gesetzt
U "Lampe"
S "Lampe"

// Neuen Status setzen
U "Lampe_Neu"
= "Lampe"
Kann man das vereinfachen?

Gr��e, Matze

boolesche Funktionen vergleichen

Mon, 15 Mar 2010 13:18:25 +0100

Hallo,

Ich habe eine Problemstellung, die ich im Moment nicht l�sen kann, ich hoffe es kann mir hier wer weiterhelfen..

Generell hab ich 2 boolesche Ausdr�cke gegeben. beide Ausdr�cke k�nnen bis zu 2 variablen beinhalten, deren werte ich nicht kenne.
f�r die Variablen d�rfen nur positive ganzzahlige werte eingesetzt werden.

Beispiel 1:

Ausdruck 1: a=0
Ausdruck 2: a+b>1,5

Ich muss jetzt herausfinden ob es f�r die Variablen werte gibt, damit beide Ausdr�cke der Wahrheit entsprechen.
Die Werte sind f�r mich jedoch nicht relevant. Ich muss einfach herausfinden, ob sich die 2 Ausdr�cke nicht logisch gegenseitig ausschlie�en.

Beispiel 1:

Ergebnis: true
Werte(a=0,b=2,b=3,b=4 ...)

Beispiel 2:

Ausdruck 1: (a+b > 1,5)
Ausdruck 2: (a=0 and b=0)

Ergebnis: false
Ausruck 2 schr�nkt bereits auf die Werte (a=0,b=0) ein, somit kann der 1. Ausdruck nie true zur�ck liefern.

Ich hoff meine Problemstellung ist soweit gut verst�ndlich. Bin f�r jede Anregung offen.
danke

D2010 und SVN

Mon, 15 Mar 2010 07:29:36 +0100

Eine Frage an die SVN Fans?

Ich habe SVN installiert.
Hier den Visual SVN Server und TortoiseSVN.
Das Repository habe ich auf einen NAS angelegt. (�ber UNC Pfad)
Das NAS ist nicht immer eingeschaltet.
Ich kann ein Projektverzeichnis anlegen und meine Arbeitsverzeichnisse
dorthin importieren.
Im Visual Server sehe ich diese dann auch. Es ist aber nicht m�glich �nderungen
einzuschecken.
Kann es sein, das SVN mit einem nur tempor�r verf�gbaren NAS Probleme hat?
Alternativ k�nnte ich das Repository auf einer 2. Festplattenpartion anlegen und
auf dem NAS mit der normalen Backup-Funktion sichern.
Beim Suchen im Internet habe ich einen Delphi - SVN Client als Plugin gefunden.
Es ist zwar ein Screenshoot mit D2010 dabei, aber ich finde keine Downloadquelle.

Hat wer einen Tip?

Danke
Peter

Eigenschaften damit ein Formular angezeigt wird...

Mon, 01 Mar 2010 15:20:44 +0100

Hallo erstmal,

nachdem ich am 26.02.2010 schon einen Thread zu diesem Thema gestartet habe, versuche ich es mal auf eine andere Art.

Kennt jemand alle Eigenschaften einer TForm (sichtbare und unsichtbare), die die Sichtbarkeit eines Formulars steuern. :glaskugel:

Mein Problem habe ich in diesem Thread Hide (Unterformular) im Hintergrund <> hide (Link: http://www.delphipraxi ... tergrund+hide.html ) geschildert.

Ich habe mittlerweile alles versucht. Sogar die GWL_STYLE auslesen mittels GetWindowLong und dann Set....,
ShowWindow, SendMessage, Perform, WM_SETREDRAW setzen und Neuzeichnen unterdr�cken, und und und .... :wall:

Mir gehen langsam die Ideen aus. Ich halte das f�r einen groben Bug in der VCL (was zu beweisen w�re).

Schulprojekt "Virus"

Wed, 13 Jan 2010 12:56:15 +0100

Hey ich bin neu hier und weiss nicht, ob das hier das richtige Unterforum dafuer ist,
aber ich haette mal eine Frage...

Im Informatikunterricht sollen wir jeder irgendwas vorstellen und ich hab eben das Thema "Viren" abbekommen.

Und erstmal gefreut, klingt cool und alles, ABER ich habe davon eigentlich keine Ahnung.
Natuerlich erstmal Wikipedia durchgelesen schoen und gut,
aber ich hab immer noch nicht wirklich den Durchblick.

Ich habe auch keine wirklichen Programmierkenntnisse.
Eben recht rudimentaere Delphikenntnisse und sonst eben gar keine...

Ich faende es daher gut, wenn man mir hier entweder eine Anleitung geben koennte,
wie ich ein Programm schreibe, das in Grundzuegen wie ein Virus funktioniert,
damit ich es anschaulich machen kann, falls so etwas moeglich ist.

Ich bin uebrigens kein kleines Skript-Kiddie und ich will damit auch keinen Schaden anrichten!!!

Wie dynamischer Vorfahr f�r generische Klasse?

Mon, 15 Mar 2010 11:42:45 +0100

Praktisch m�chte ich sowas haben,
TMyClass = Class(Ancestor)
� ^^^^^^^^
aber Delphi meint nur
-- Zitat ----------------------------
...: E2021 Klassentyp erwartet
-- Zitat Ende -----------------------

Denn diese Klasse soll selber nur eine gewisse Funktionalit�t f�r andere, davon abgeleitete Klassen bereitstellen, aber ich wollte den anderen Klassen nicht die M�glichkeit nehmen, jeweil einen "anderen" Vorfahren zu nutzen.

z.B.
TTest = Class(TMyClass)
wobei es quasi dem entspricht, nur da� eben meine gen. Klasse hier noch mit dazwischen eingef�gt wird.
TTest = Class(TComponent)

[D2009] Aufl�sung von Werten an Haltepunkten geht oft nicht

Tue, 11 Aug 2009 01:58:44 +0200

Ich habe mein gutes altes D7 vor kurzem an den Nagel geh�ngt und mir RAD Studio 2009 zugelegt.
So langsam gew�hne ich mich an die neue IDE, aber ein Problem bekomme ich nicht in den Griff.

Wenn ich in einem Projekt die Debug DCUs und Debug Informationen aktiviere, werden an Haltepunkten ja normalerweise die Werte von Variablen und Konstanten ausgel�st, wenn ich mit der Maus dr�berfahre.

Mein D2009 (SP3+4) ist da etwas bockig.

Die Aufl�sung funktioniert einen Moment. Nach einer k�rzeren Arbeitszeit und mehrfachem compilieren + speichern des Projektes klappt die Aufl�sung irgendwann nicht mehr, obwohl an den Projektoptionen keinerlei �nderungen vorgenommen wurden.
Dann ist nichts mehr zu machen.
Ich habe die DCUs gel�scht, die Debug-Einstellungen in den Projektoptionen kontrolliert, das Projekt neu erzeugt usw. ... Keine Aufl�sung von Werten am Haltepunkt.

Die einzige L�sung, die eine kurze Weile hilft, ist das Projekt-Verzeichnis "aufr�umen", also *.RES, *.identCache, *.local, *.dcr und DCUs l�schen, Projekt neu �ffnen, die Projektoptionen wieder neu einstellen (da neu .RES) und das Projekt neu erzeugen ....

Das behindert unheimlich bei der Arbeit.

Ich kann die Variablen am Haltepunkt mit CTRL+F5 zu den �berwachten Ausdr�cken hinzuf�gen und die Werte dort sehen.
An den Debug-Einstellungen sollte es daher denke ich nicht liegen.

Wer hat einen Rat bzw. sogar eine L�sung ???

Danke,
Jens