Tag: delphi-7
Delphi 7, veröffentlicht im August 2002, ist eine version von Delphi für Windows 32-bit.
1
Antworten
Ich etwas, das aussieht wie die Farbe in Delphi. Ich fand, wie man zoom-Funktion: procedure SetCanvasZoomFactor(Canvas: TCanvas; AZoomFactor: Integer); var i: Integer; begin if AZoomFactor = 100 then SetMapMode(Canvas.Handle, MM_TEXT) else begin SetMapMode(Canvas.Handle, MM_ISOTROPIC); SetWindowExtEx(Canvas.Handle, AZoomFactor, AZoomFactor,
2
Antworten
Ich brauche, um Musik zu spielen, die im hintergrund beim start des Programms in der OnFormActivate Ereignis für mein Programm. Ich habe das Lied, das ich verwenden möchte, aber ich weiß nicht welchen Befehl Delphi nutzen muss,
3
Antworten
Weiß jemand, wie man erstellen Sie ein Delphi-Formular ohne eine Titelleiste? Ich habe gesehen, einige links/Tipps, aber es ist nicht genau das, was ich will und ich könnte nicht es selbst tun. Dies ist, was ich versuche
6
Antworten
Ich habe eine große Menge von Daten, zum einfügen in ein Arbeitsblatt einer vorhandenen Excel-Arbeitsmappe. Die Excel-Arbeitsmappe haben, die anderen Tabellenblätter mit Berechnungen und pivot-Tabellen. Die Daten können so viele wie bei 60.000 Zeilen und mehr als
3
Antworten
Ich versuche zu bauen, ein delphi-Projekt aus der command-line compiler Beispiel: C:\dcc32 -B C:\BD\Delphi7\work\MyProject.dpr Abgesehen von den standard-evironment Wegfindung: $(DELPHI)\Bin; $(DELPHI)\Lib; $(DELPHI)\Imports; $(DELPHI)\Projects\Bpl; $(DELPHI)\Rave5\Lib; es ist fast 50, andere Wege zu anderen Bibliotheken, Komponenten, usw... Wie kann
2
Antworten
Ich bin, dies zu tun : procedure TForm1.BitBtn1Click(Sender: TObject); var dtStart: TDateTime; I: Integer; begin dtStart := DateTimePicker1.Date; for I := 0 to 7 do AdvStringGrid1.Cells[I+1, 0] := uppercase(FormatDateTime('DD/MM/YYYY DDD', dtStart + I)); end; Gibt es eine
3
Antworten
ive ein news-server Gebaut, auf Delphi7, mit Indy9 TIdTCPServer und die Kunden sind mit TClientSocket aus ScktComp für die Größe, und der Verkehr ist verschlüsselt RC4 (string) was muss ich genau tun, um meine app funktioniert auf
2
Antworten
Möchte ich den UDP-Socket zu senden Sie einfach eine audio-stream. Mein problem ist, dass ich nicht bekommen kann es arbeiten, dachte ich, es wäre einfacher dann mit dem TCP-IP. Was ich Tat, ich ging einen UDPSocket-Komponente auf
1
Antworten
Ich möchte eine Verbindung zu einem excel 2007 - Datei(.xlsx) mit delphi 7, so habe ich ein AdoConnection und seine connectionstring Eigenschaft als: Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\test\qm\Results-summary.xlsx;Extended Properties="Excel 12.0;IMEX=1";Persist Security Info=False Aber wenn ich aktiv die AdoConnection bekomme ich
3
Antworten
HINTERGRUND Mache ich ein einfaches Programm, um log-Daten und ein paar Berechnungen mit ein .MDB-Datenbank. der Zugriff erfolgt über Jet 4. ZIEL Ich möchte in der Lage sein, um den Wert aus /in jedem Feld aus einer
6
Antworten
Brauche ich, um zu speichern und eine unbekannte Zahl von Gruppen. Jede Gruppe hat eine unbekannte Anzahl Elemente/Elemente. Dies ist meine "Gruppe": TGroup= array of Integer; <------ dynamic array (as you can see) :) Möchte ich eine
4
Antworten
Als test habe ich beschlossen, erstellen Sie eine einfache "Hallo Welt" - Programm in Delphi-mit Delphi 4, 5, 6, 7, 2005, 2010 und XE3. Die app ist nichts weiter als ein TForm, ein TButton mit einem OnClick-Ereignis
3
Antworten
Möchte ich zeigen, einige Zeilen aus tcxgrid in verschiedenen Farben (Je nach Spalte Wert ). Habe ich verpasst, aber seine nicht immer spiegelt sich im raster, nach dem ausführen von meinem Projekt. procedure TfrmMessaging.cxGrid1DBTableView1CustomDrawCell(..); Var i :
2
Antworten
ich verwendet, um diese auf ein Formular, und erstellen Sie es wie 10 mal, das war ok, bis ich versuchte, Sie zu passieren, diese Reihe, es begann das Essen von system-Ressourcen, gibt es trotzdem konnte ich eine
2
Antworten
Ich benutze Delphi7, PageControl mit den owner-draw. Ich kann nicht so flach und schön Aussehen von tabs, so wie ich das sehe auf nicht-Besitzer-gezeichnet PageControls. Was ist schlecht: bei der Verwendung von owner-draw, ich kann nicht zeichnen,
4
Antworten
Die zulässige Zeichen sind A bis Z, A bis z, 0 bis 9. Die geringste Menge an code oder eine einzelne Funktion das beste wäre, als das system mal kritisch die Reaktion auf Eingaben. Schön tagging 😉
1
Antworten
ich versuche zu verstehen, wie Zeiger auf strings arbeiten. Ich habe einen code (nicht gerade originell), die geschrieben wurde von jemandem, und die person ist nicht hier mehr, also muss ich verstehen, die Idee, eine solche Nutzung.
4
Antworten
In anderen Sprachen, wie C++, dort sind die Operatoren zu tun, einen plus-gleich-oder-oder-gleich-Typ-operation, um zusätzliche styles/flags. Gibt es ein äquivalent in Delphi? Nun habe ich einige code wie: label1.Font.Style := label1.Font.Style + [fsBold]; label2.Font.Style := label2.Font.Style +
4
Antworten
Ich soll zum laden einer url direkt in einen string ohne jeden Datenstrom,was ist der beste Weg, internet open url funktioniert, aber es scheint nicht klar. Möchte ich nicht verwenden, jede Komponente für das Lesen, einige kurze
2
Antworten
Habe ich installiert Windows 8 auf meinem laptop, und versuchen, zu Delphi 7 zu laufen. Ich die AV-error: Zugriffsverletzung bei Adresse 40005A06 in Modul 'rtl70.bpl' Lesen von Adresse C08B0033 Ich habe versucht, alles, was ich denken kann,
4
Antworten
gibt es einen einfachen code-Beispiel gibt, oder how-to, wie man ein richedit-Steuerelement tun syntax-Highlighting ? ich habe versucht, SynEdit aber es ist sehr sehr kompliziert für mich, ich Frage mich, ob es ein kleines code-snippet, dass ich
4
Antworten
Wie kann ich die Druck-Größe (Breite und Höhe) von code, ohne dass ein dialog? Dank Machst du den Druck manuell (über Printer.BeginDoc etc.) oder sind Sie mit einem TRichEdit zum Beispiel? Was meinst du mit "Druck-Größe"? Druck-Größe
3
Antworten
Möchte ich ein Unentschieden eine lichtdurchlässige Bild auf einer Delphi-form, aber aus irgendeinem Grund es nicht funktioniert. Hier ist die original-PNG (Grenze ist semi-transparent): Ich lade das Bild in ein TImage Objekt: Image1.Transparent := True; Form1.Color :=
3
Antworten
Erste Teil des Codes funktioniert, während die zweite (kommentierte) nicht. Es überschreibt mein A1 Datei obwohl es schreiben soll zu A2. procedure TForm1.AdvGlowButton12Click(Sender: TObject); var i,j: Integer; Seznam: TStrings; ApplicationPath: string; begin if (cxRadiogroup3.ItemIndex and cxRadiogroup2.ItemIndex) =
2
Antworten
Zum Beispiel, ich habe ein paar Funktionen geschrieben, die für meine form. Jetzt brauche ich die genau gleichen Funktionen, nur in einer anderen form. Also, wie kann ich teilen Sie Sie zwischen den beiden Formen? Bitte geben
4
Antworten
Ich Baue eine Anwendung, die "virtuellen windows". Die Ausgabe ist TImage Objekt. 1) Die Anwendung lädt, Fenster-skin-Dateien in TPNGObject's: 2.) Dann Anwendung erstellen Sie eine neue leere TPNGObject, und die Größe des skin-Dateien zu den notwendigen Größen
3
Antworten
Bitte helfen, Habe ich immer diese Fehlermeldung, wenn ich Werte übergeben, um einen parameter mithilfe von code ähnlich: parameters.paramByName('ParamVal1').value := trim(TextBox1.Text); parameters.paramByName('ParamVal2').value := trim(TextBox2.Text); So, wenn eine der Textboxen leer ist, dann der Fehler: Den Datentypen varchar
2
Antworten
Ich versuche nur, um führen Sie die "select" sql-Anweisung mit TADOQuery-Komponente, aber wenn TADOQuery der "Open" - Anweisung ausgeführt wird, erhalte ich folgenden Fehler: Cannot perform this operation on a closed dataset... ADOQuery1.Active := False; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add('Select
1
Antworten
Ich habe einen Abfrage-code, den ich anrufen kann jeder Zeit, die ich brauche zum abrufen von Daten aus der Datenbank, und ich möchte es eingefädelt werden. Nicht sicher, wie Sie diese umsetzen in einen thread, so kann
2
Antworten
Erstellen einer TComboBox mit zwei Spalten, die eine der Spalten ausgeblendet, so dass Sie halten können einen id-Wert zusammen mit der tatsächlichen Position in der it? Und dann, wie man, dass der id-Wert programmgesteuert? InformationsquelleAutor Mikhail |
1
Antworten
Habe ich einige Bild-Dateien gespeichert in einer einzigen Datei (eine Art Archiv). Die Datei sieht wie folgt aus: Gut, es ist getrennt in zwei Segmente - header-und Daten-segment. Header (grün) enthält verschiedene Informationen, wie z.B. album-name, Standort,
2
Antworten
Habe ich eine TList. Es enthält eine Sammlung von Objekten des gleichen Typs. Diese Objekte stammen aus einem TPersistent und haben über 50 verschiedene Eigenschaften veröffentlicht. In meiner Anwendung kann der Benutzer die Ausgabe einer Suche nach
2
Antworten
Wie kann ich einen task planen mit delphi 7 wie Google-updater? Ich bin nicht mit der registry, weil es wird erkannt von Kaspersky antivirus als falscher alarm. Alles, was ich in der registry wie ein start-up-Element wird
5
Antworten
wenn ich Unterordner im Ordner - dieser code ist nicht Ordner löschen... gibt es da irgendwelche Fehler? procedure TForm.Remove(Dir: String); var Result: TSearchRec; Found: Boolean; begin Found := False; if FindFirst(Dir + '\*', faAnyFile, Result) = 0
1
Antworten
Möchte ich zum Lesen von Daten aus einem elektronischen Gerät, das Daten sendet mein PC über UDP. Ich programmiert habe einen UDP-server in Delphi. Eine Ausnahme tritt in der Klasse EIdSocketError (Fehler #10049). Hier ist mein code:
2
Antworten
Möchte ich kopiere einen Teil eines FileStream in ein MemoryStream. FileStream.Write(Pointer(MemoryStream)^, MemoryStream.Size); FileStream.Read(Pointer(MemoryStream)^, count); Ist das richtig? Es ist nicht für mich arbeiten. formatieren Sie Ihren code, wählen Sie es im editor und drücken Sie Strg-K. InformationsquelleAutor
3
Antworten
Erstellte ich eine Konsole-Anwendung in delphi 7, die zeigen soll Nachrichten nach dem drücken der enter-Taste: begin writeln ('Press ENTER to continue'); readln; writeln ('blablabla'); writeln ('blablabla'); end; Die Sache ist, dass die Benutzer können eine beliebige
4
Antworten
Ich Frage mich, ob es irgendwelche Borland cross-compiler, um meinen windows-code funktioniert unter linux ohne wine.Ich verwende winxp mit delphi 7. Ich habe mich immer gefragt, ob es möglich war code gleiche Werkzeug, das ich generell in
3
Antworten
Brauche ich eine Timer in eine "nicht-form" Delphi-unit (es gibt noch eine Haupteinheit, die mit einer form), so dass ich dies tun: unit ... interface type TMyTimer = Class(TTimer) public procedure OnMyTimer(Sender: TObject); end; var MyTimer: TMyTimer;
2
Antworten
Ich bin mit diesem code für Delphi 7 zu erkennen ist, wenn Internet Explorer ausgeführt wird: function IERunning: Boolean; begin Result := FindWindow('IEFrame', NIL) > 0; end; Dies funktioniert auf 99% der Systeme, die mit dem IE
3
Antworten
Ich habe eine Spalte in der Datenbank, die kann nur 40 Zeichen in einem string. Also, wenn die Länge der Zeichenfolge größer als 40 Zeichen sein gibt mir Fehler. Wie kann ich schneiden/trimmen der string bis 40
1
Antworten
Ich versuche, um eine semi-komplexe Maskierung textbox in Delphi 7. Ich habe Probleme, dass ich nicht finden können jede Art von Referenz für das, was die einzelnen Zeichen in einer Maske bedeutet. Alle, die ich finden kann,
1
Antworten
Selben version von Delphi 7 Code bereitgestellt wurde bei den Rechnern, die in unserer gesamten Organisation. Jedes mal, wenn Benutzer A greift auf Datensatz Z auf der computer-F1, wird die folgende Fehlermeldung angezeigt: Access violation at address
4
Antworten
Schrieb ich eine Anwendung (eine psychologische Tests-Prüfung) in Delphi (7), die erstellt eine standard-text-Datei - also die Datei ist vom Typ ANSI. Jemand portiert, die zum ausführen des Programms auf das Internet, wahrscheinlich mit Java, und der
2
Antworten
Gibt es diese website http://www.ingress.com/intel Auf die website zugreifen, müssen wir die Anmeldung mit Benutzername und Passwort. Einmal auf die zugegriffen wurde, die Website verwendet die JSON-Daten. Ich bin neu hier im JSON-Sache. Jeder kann ein Allgemeines
4
Antworten
Ich m arbeiten mit Delphi 7 und ich möchte den Pfad meiner .. /All Users/Dokumente Verzeichnis. Ich kam über den folgenden code uses shlobj, ... function GetMyDocuments: string; var r: Bool; path: array[0..Max_Path] of Char; begin r
3
Antworten
Ich würde gerne eine Taste zum ändern der Beschriftung zwischen sichtbar und nicht sichtbar, wenn auf Sie geklickt wird. Ich habe Versucht den folgenden code, aber es funktioniert nicht: Var: Hidden : Boolean; Begin If Hidden =
2
Antworten
Ich arbeite mit Delphi 7 und ich bin versucht, erstellen Sie ein Formular programmgesteuert. Hier ist meine form-Klasse stub: unit clsTStudentInfoForm; interface uses Forms; type TStudentInfoForm = class (TForm) end; implementation end. Ich habe auch eine Taste
1
Antworten
Ich bin mit Delphi 7. Ich bin mehr als vertraut mit der Verwendung einer Leinwand, Zeichnung und text auf eine Leinwand und auch mit TCanvas.TextHeight-etc. Das problem entsteht, wenn ich implementieren möchten Zeilenumbruch. Nicht nur brauche ich
4
Antworten
Hi Ich will abrufen HDD einmalige (hardware -) Seriennummer. Ich nutze einige Funktionen, aber in Windows Seven oder Vista funktionieren Sie nicht mehr richtig, weil der admin-rechten. Ist es möglich, es abzurufen, ohne als Administrator ausführen? Möglicherweise