Delphi-PRAXiS

TQuery variabel

Fri, 15 Jan 2010 14:32:39 +0100

Hallo!

Ich besch�ftige mich seit kurzem mit SQL. Meine erste Abfrage

with Query1 do
begin
Active:=False;
SQL.Clear;
SQL.Add('Select * from gesamt3 where feld001 = "AACHEN" ');
Active:=True;
end;

funktioniert.

Nun m�chte ich "AACHEN" variabel machen

with Query1 do
begin
Active:=False;
SQL.Clear;
SQL.Add('Select * from gesamt3 where feld001 = Edit1.text ');
Active:=True;
end;

das funktioniert nicht.

Wo ist mein Fehler? und wie mache ich sowas richtig.

Daten von einem anderen Programm "auffangen" und verarbeiten

Sun, 07 Mar 2010 16:57:31 +0100

sodala, wieder mal ich :)

mit gro�er Hilfe habe ich endlich mein Programm, dass mit einem Modem kommunizieren kann, fertiggestellt (174522 (Link: http://delphipraxis.ne ... 4eaa8cd7fee64b41e7 )).

Jetzt bin ich mir garnicht sicher, ob die folgende Frage hier reinpasst, aber irgendwie hat sie doch mit Win API zu tun, denke ich.
Wie ich schon in der oben genannten Frage geschrieben habe, ist die Software die wir verwenden alt und nicht kompatibel mit dem neuen Modem.
Jetzt hab ich mir gedacht es m�sste doch m�glich sein, mit einem Programm die Daten/ Befehle die dieses SMS-Programm an den Com Anschluss sendet "abzufangen" und dann richtig verarbeitet weiterzuschicken.
Leider fallen mir da auf Anhieb kaum gute Wege ein.

Hat jemand vielleicht eine Idee, wie man das -eher leicht- machen k�nnte?

(Ich hab mir mal angeschaut, wie leicht es w�re einen "virtuellen" com Anschluss zu erstellen und die Software auf diesen einzustellen um die empfangenen Daten dann ans richtige Modem weiterzusenden, doch das sah auf den ersten Blick extrem aufwendig aus, da man einen eigenen Driver br�uchte)

Danke im Voraus

DLL-Funktionen in Lazarus/FP einbindbar / wie einzubinden?

Thu, 11 Mar 2010 20:29:02 +0100

Hallo allerseits!

Seit geraumer Zeit suche ich mir einen Wolf im www, leider vergeblich.

Kurzum: Ist es m�glich, in Lazarus / Freepascal DLL-Funktionen einzubinden, und, falls ja, wie?

Besten Dank im voraus!

Gru� Delphi-Laie

try?

Sat, 13 Mar 2010 16:00:18 +0100

Hallo,

ich nutze folgenden Code im onClick eines DBNavigator:

bsSkinLabel1.Caption := IntToStr(form1.ASQLite3Table1.RecNo) + ' / ' + IntToStr(form1.ASQLite3Table1.RecordCount);

Jetzt gibt es Situationen, wo ein Button des DBNavigator nicht enabled ist. Geklickt werden, kann darauf aber trotzdem. Dann gibts eine AccessViolation... ich wollte es mit einem try Block abfangen, der wird aber leider ignoriert. Es kommt trotzdem die AccessViolation...

Gru�,
Andreas

"Entpacker" erstellen (zip.datei)

Sat, 13 Mar 2010 18:02:54 +0100

Hey Leute,

Ich versuche derzeit einen kleinen "Entpacker" zu programmieren.
Ich schaffe es eine .zip datei zu erstellen die auch Gr��e hat, aber ich kann die .zip Datei nicht mit einem "richtigen" Entpacker entpacken. Ich benutze D7 und die Zlib Unit.
So packe ich zusammen
procedure Compress(InputFileName, OutputFileName: string);
var InputStream, OutputStream: TFileStream;
CompressionStream: ZLib.TCompressionStream;
begin
inputstream := Tfilestream.Create(InputFileName, fmOpenRead);
try
OutputStream:=TFileStream.Create(OutputFileName, fmCreate);
try
CompressionStream:=TCompressionStream.Create(clMax, OutputStream);
try
CompressionStream.CopyFrom(InputStream, InputStream.Size);
finally
CompressionStream.Free;
end;
finally
OutputStream.Free;
end;
finally
InputStream.Free;
end;
end;
procedure Decompress(InputFileName, OutputFileName: string);
var InputStream, OutputStream: TFileStream;
DeCompressionStream: ZLib.TDeCompressionStream;
Buf: array of Byte;
Count: Integer;
begin
InputStream:=TFileStream.Create(InputFileName, fmOpenRead);
try
OutputStream:=TFileStream.Create(OutputFileName, fmCreate);
try
DecompressionStream := TDecompressionStream.Create(InputStream);
try
while true do
begin
Count := DecompressionStream.Read(Buf , SizeOf(Buf));
if Count = 0 then
break
else
OutputStream.Write(Buf , Count);
end;
finally
DecompressionStream.Free;
end;
finally
OutputStream.Free;
end;
finally
InputStream.Free;
end;
end;
// erst mal nur packen
procedure TForm1.sButton1Click(Sender: TObject);
begin
savedialog1.Execute;
speicher := savedialog1.FileName;
Compress(pfadn,speicher+'.zip');// pfadn = die Dateien in der Listbox , Speicher = der Speicherort wo die .zip Datei erstellt werden soll.
end;

Das Problem ist:
Wenn ich die .zip Datei entpacken will kommt die Fehlermeldung von meinem Entpacker
"Error this file Format cannot be extracted"

Mitprotokollieren, was im Programm angeklickt wurde

Sat, 13 Mar 2010 16:55:41 +0100

Hallo zusammen,

wie kann ich am besten alles mitprotokollieren, was der Anwender in einem Delphi-Programm eingibt und welche Komponenten er wann und in welcher Reihenfolge anklickt.

Edit:
Ich br�uchte da eine schnelle und einfach L�sung f�r.

Panel canvas einem klassenobjekt zuweisen...

Sat, 13 Mar 2010 17:43:02 +0100

Hallo

mein Problem ist folgendes:

Ich hab ne Klasse geschrieben, die Formen auf ein Canvas zeichnet. Die Formen werden in einem Rekord gespeichert. �ber die Klasse kann man die Formen verschieben oder l�schen zum Beispiel.

Ich habe nun das Problem dass ich auf ein Panel.Canvas zugreife. ich m�chte aber dieses Panel.Canvas �ber meine Klasse ansprechen.

...
type
{ drawdesk }
TDrawDesk = class
width : integer;
height : integer;
forms : TFormen;
aCanvas : TCanvas; // hier lege ich ein Canvas an, dem ich sp�ter das panel.canvas zuweisen m�chte
ax, bx, ay, by: integer;
public
constructor create;
procedure initialize;
procedure CanvasClear;
function selectForm: integer;
function isObject: integer;
end;

so ungef�hr sieht die Klasse aus...

num m�chte ich quasi folgendes

var
aDesk : TDrawdesk;

begin
aDesk := TDrawdesk.create; // Objekt instanzieren
aDeks.canvas := panel.canvas; // <--- ???
aDesk.canvas.clearcanvas; // f�hrt unteranderem ..canvas.clear aus...
end;

Ich m�chte einmal auf das zu verwendende Canvas hinweisen, dann nur noch das Canvas aus der Klasse ansprechen.

Br�uchte etwas Hilfe oder einen Tipp!

Gruss senlukkin

Deutsches Windows 7 - alle Einstellungen Deutsch = Dollar

Sat, 13 Mar 2010 18:18:01 +0100

Ich habe ein Fibu-Programm, dass nat�rlich komplett in Deutsch erstellt wurde. Auf manchen PCs funktioniert es aber nicht!
Jetzt habe ich festgestellt, dass auf diesen PCs zwar ein deutsches Windows 7 l�uft und alle Einstellungen Deutsch sind - trotdem erscheinen in meinem Programm die W�hrungen in Dollar!!!

Jetzt habe ich ein gekauftes Fernwartungsprogramm installiert - und siehe da, auch hier sind die Dialoge auf einmal in Englisch!!

Ich arbeite mit Delphi 2010.

Frage: Gibt es eine M�glichkeit, in meinem Programm festzulegen, in welcher Sprache es laufen soll? Offensichtlich lie�t es n�mlich Datumswerte ebenfalls Amerikanisch aus...
Danke!

DSQLite - Insert

Sat, 13 Mar 2010 18:33:06 +0100

Hey,

nachdem ich das mit dem 'Select'-"Sachen" jetzt hinbekommen habe, m�chte ich etwas in meine Datenbank schreiben, allerdings durchschau ich nicht wirklich, wie das bei DSQLite3 geht.

Ich hab verschiedene Ans�tze ausprobiert und da ich noch am Anfang steh, seh ich eher so :?: also so aus :idea:.

Also es geht darum, dass ich in einer Prozedur ein TDISQLite3UniDirQuery erstelle, dar�ber greif ich zuerst auf eine Datenbank zu und m�chte sp�ter wieder mehrere Werte speichern.

Meine Ans�tze waren folgende:

sql.InsertSQL :=
'INSERT INTO tabelle2(wert1,wert2,wert3) VALUES (' + #39 +
(sql.FieldByName('wert1').AsString)
+ #39 + ', ' + #39 + wert2 + #39 + ', ' + #39 + wert3 +
#39 + ');';
sql.Insert;
sql.Next;
(die verschiedenen Sachen hei�en anders, die Namen sollen nur zur Verdeutlichung dienen)

Dabei bekomme ich bei "sql.Next" die folgende Fehlermeldung (die auch auftritt, wenn da ein anderer Befehl wie sql.Close steht)-- Zitat ----------------------------
Cannot modify a read-only dataset.
-- Zitat Ende -----------------------
Das kann ich mir eigentlich nicht erkl�ren, da weder die TDISQLite3UniDirQuery noch die Komponente, �ber die der Zugriff auf die Datenbank (TDISQLite3Database), eine read-only Eigenschaft besitzen. (im Admintool hab ich (bewusst) auch nichts dergleichen eingetragen)

Mein n�chster Ansatz war, dass ich die TDISQLite3Database-Komponente benutze, die ich f�r den Zugriff auf die Datenbank sowieso benutze. Mein Ansatz sah so aus:

DISQlite3Database.Execute('INSERT INTO tabelle2(wert1,wert2,wert3) VALUES (' + #39 +
(sql.FieldByName('wert1').AsString)
+ #39 + ', ' + #39 + wert2 + #39 + ', ' + #39 + wert3 +
#39 + ');');

Dabei tritt die folgende Fehlermeldung auf:-- Zitat ----------------------------
SQLite3 Error 5 - database is locked.
-- Zitat Ende -----------------------
Das kann ich mir auch nicht erkl�ren, da ich nichts dergleichen veranlasst habe.

Ich hoffe, ihr k�nnt etwas mit meiner Beschreibung anfangen :(

Ich danke euch jedenfalls

Liebe Gr��e.

Zwei Memofelder gleichzeitig scrollen

Sat, 13 Mar 2010 17:56:06 +0100

Hallo ich versuche gerade zwei Memofelder gleichzeitig zu scrollen, allerdings scheitert es schon an einem :(
Irgendwie bekomme ich es nicht hin, dass das scrollen und der Text synchron laufen. Der Scrollbalken ist immer zu fr�h unten, obwohl die Max Position der Scrollbar genau die Zeilenanzahl des Textes besitzt.
Auch klappt das Scrollen nur wenn man auf die Pfeilbuttons der Scrollbar klickt oder vor und hinter den eigentlichen Scrollbalken.

Hier ist mal der Code:

procedure TForm1.ScrollBar1Scroll(Sender: TObject; ScrollCode: TScrollCode;
var ScrollPos: Integer);
begin
case ScrollCode of
scLineUp:
Memo1.Perform(EM_LINESCROLL, 0, -1);
scLineDown:
Memo1.Perform(EM_LINESCROLL, 0, 1);
scPageUp:
Memo1.Perform(EM_LINESCROLL, 0, -1);
scPageDown:
Memo1.Perform(EM_LINESCROLL, 0, 1);
scTop:
Memo1.Perform(EM_LINESCROLL, 0, -1);
scBottom:
Memo1.Perform(EM_LINESCROLL, 0, Memo1.Lines.Count);
scEndScroll:
Memo1.Perform(EM_LINESCROLL, 0, Memo1.Lines.Count-ScrollBar1.Position);
end;
end;

Objekt incl. untergeordnete objecte

Sat, 13 Mar 2010 17:47:09 +0100

Huhu,

ich frage mal anders. Ich m�chte zur laufzeit ein Objekt mit all seinen untergeordneten kopieren. Wie geht das??? Und wie greife ich danach auf diese kopierten objekte zu?

Danke im voraus.....

[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

Combobox Itemindex wird nicht ge�ndert

Sat, 13 Mar 2010 07:56:04 +0100

Hallo zusammen,
ich habe eine Tcombobox im Style csOwnerDrawVariable.
Auf den ge�nderten Inhalt reagiere ich im onchange mit

if ComboBox1.ItemIndex > -1 then ...

wenn ich jetzt den Inhalt der Box ausw�hle indem ich die ersten Buchstaben eintippe, wird der entsprechende Inhalt zwar angezeigt,
aber der Itemindex �ndert sich nicht.
Was mach ich falsch?

Danke gruss KH

WLan Verbindung herstellen

Sat, 13 Mar 2010 16:47:38 +0100

Moin,
ich m�chte ganz einfach eine Verbindung zu meinem Router herstellen und nebenbei
auch noch die Laufzeit der Verbindung ausgeben, wobei das erstmal unwichtig ist.
Nur wei� ich garnicht wie ich meinen Router finden oder eine verbindung herstellen kann.
W�re sehr nett wenn einer ein Tutorial h�tte oder sich kurz 5 minuten zeit nehmen k�nnte :)

Zeichencodierung umwandeln

Fri, 12 Mar 2010 22:45:21 +0100

Hallo,

ich habe folgende Situation:

- ich habe eine Datenbank mit UTF8-Codierung. Daten die dort eingetragen oder ausgelesen werden, werden mit utf8_encode / utf8_decode verarbeitet.
- die Website ist im UTF8 Format (Meta-Tags)

Nun m�chte ich auf der Seite Daten aus der Datenbank auslesen und in einem Link als Parameter verstauen (kein Problem mit UTF8_encode). Wenn dieser Link aufgerufen wird, werden die Daten an den entsprechenden Server �bermittelt, der allerdings die Daten im iso-8859-1-Format m�chte.

Ich hatte schon 2 M�glichkeiten ausprobiert, bei denen aber beide Male Frage- oder Sonderzeichen bei Umlauten auftraten. Leider habe ich nicht die M�glichkeit alles auszuprobieren, da mir der "Kunde" er E-Mail erst antworten muss, ob es klappt.

Bei unserem letzten Versuch hatte ich folgendes mit den Daten aus der DB gemacht:

html_entity_decode(utf8_encode($irgend ))

Die Daten im Quelltext bzw. im Link waren fehlerfrei in den Umlauten, nach Anklicken und �bertragen an den Kunden, jedoch nicht mehr. Dort kamen dann Fragezeichen zum Vorschein.

Kann mir eventuell jemand weiterhelfen, ohne dass ich jetzt viel rumprobieren muss?