Die Neuesten Nachrichten von Progr.Sprache

Webshop für Delphi (alt) plus neues Delphi ugrade?

Hi,

ich nerve bestimmt, aber ich wusste mir einfach nicht mehr zu helfen.

Ich hatte vor einiger Zeit einen Link für einen Webshop in Deutschland gefunden, der alte Delphi-Versionen als Bundle mit einer neuen Delphi-Version angeboten hat.

Beispiel: Delphi 5 Prof + Delphi 2005 Prof. upgrade

Weis jemand einen solchen Webshop der sowas anbietet?
Ansonsten bleibt mir nur mir irgendwo bei ebay eine alte Version zu kaufen um dann wo anders upgraden zu können.

Hoffentlich weis jemand was... :-D

WinXP Home - Zugriffsberechtigung

Hallo zusammen,

ich hab folgenedes Problem:
Ich hab hier auf meinem Laptop WinXP Home :kotz: Wenn wir uns im Freundeskreis treffen, dann stell ich den immer zur Verfügung zum Musik machen (haben hier unsere ganze Musik draufgezogen). Das habe ich bisher immer über meinen Account (Admin) gemacht. Nun hab ich neulich ein paar Leute dabei erwischt, wie sie meine Festplatte duchstöbern und da meine privaten Dateien nur mich was angehen, hab ich nen neuen Account mit eingeschränkten Rechten erstellt.
Da XP Home den "Sicherheit"-Register in den Eigenschaften von Ordnern nicht anzeigt, hab ich die .dll gepatcht und dann die Zugriffsrechte unter Sicherheit geändert. Allerdings hab ich jetzt das Problem, dass nur mein Acc die Musik auch abspielen kann, weil er der Besitzer ist (die Musik liegt übrigens in C:Musik).
Via Google hab ich erfahren, dass man das Problem lösen kann, indem man die Musik in Gemeinsame DokumenteEigene Musik verschiebt. Davon halte ich aber absolut nichts, weil die dort dann ja auch im Netzwerk sichtbar sind und wenn ich damit dann in der Uni online gehe, mache ich mich strafbar. Gibts da keine andere Lösung?

Vielen Dank im Voraus

PS: Tolle Weihnachtsdeko ;-)

7, 6 - 5, 4, 3 und 0, 1, 2 Bit für neues Byte verwenden

Hey,

ich wusste nicht wie genau ich den Titel formulieren sollte. Ich habe ein bestimmtes Byte, z.b. $AC. Nun möchte ich daraus 3 Bytes machen und zwar soll im Byte1 nut das 7. und 6. Bit aus dem AC Byte verwendet werden, in Byte 2 das 5. 4. und 3. und so weiter.

Mein Ansatz war:
b1 := (b shr 6);
b2 := (b shl 2) shr 5;
b3 := (b and 7);

Da treten aber Werte wie z.b. 26 auf, die doch eigentlich gar nicht möglich sein dürften.

Gruß Zacherl

PageControl Focus

Hallo,
ich weiß nicht, ob mein Problem schon irgendwo behandelt wurde, da ich nicht genau weiß, wonach ich suchen muss.
Zum Problem:
Ich habe 2 PageControls, in denen jeweils eine Variable Anzahl an Tabs mit jeweils einem Memo vorhanden ist.
Nun möchte ich feststellen innerhalb welches PageControls ich mich befinde. Soll heißen, dass wenn ich in einem Memo in Tab 3 irgendwas schreibe, woher ich dann weiß, in welchem der beiden PageControls ich mich befinde.
Ziel des ganzen soll sein, über einen Button außerhalb der PageControls den jeweils aktiven Tab zu schließen.

Danke schonmal für eure Antworten

Einfache Graphen zeichnen

Hallo ihr,
nun lag dieser (Link: http://www.delphipraxi ... 689712.html#689712 ) Thread ziemlich lange brach, aber ich habe mich heute mal dran gesetzt und sie vervollständigt.

An sich ist diese Unit einfach zu verwenden:
* Zuerst obligatorisches wie erstellen, zerstören, setzen von Breite, Höhe, Parent
* Nun kann man die verschiedenen Eigenschaften setzen:
* Das Intervall (sofern nicht manuell der Graph neue Werte bekommt)
* Ein Ereignis welches bei jedem Intervall ausgelöst wird (sofern nicht manuell der Graph neue Werte bekommt)
* Der Abstand zweier Gitterlinien zueinander
* Eine Graphfarbe
* Eine Netzfarbe
* Eine Hintergrundfarbe
* Eine Balkenfarbe
* Eine Basislinie (s.u.)
* Und irgendwann sollte man es starten (sofern nicht manuell der Graph neue Werte bekommt :mrgreen: )

Nun habe ich mehrmals folgendes erwähnt:
-- Zitat ----------------------------
(sofern nicht manuell der Graph neue Werte bekommt)
-- Zitat Ende -----------------------
Ich meine damit, dass es drei Modi gibt:
* Angehalten
* Manuell
* Automatisch
Der Automatische Modus lässt intern einen Timer laufen, nachdem ein neuer Wert eingetragen werden soll. Dabei wird das Ereignis "OnInterval" aufgerufen, mit dem zweiten Parameter "NewValue". In diesem Parameter kann man nun den neuen Wert angeben.

Beim manuellen Modus muss dabei die Anwendung ".NextStep()" aufrufen, bei welchen ein Parameter übergeben wird, wie groß der neue Wert ist.

Nun ein Wort zur Basislinie:
Die Basislinie ist sozusagen die x-Achse: Dort haben die y-Werte alle 0. Nun kann man mit der Eigenschaft Baseline bestimmen, wie hoch sie über der unteren Kante liegt. Natürlich nur im unskalierten Zustand.

Geraden/Balken:
Um Vergleiche zu ermöglichen habe ich eine Möglichkeit eingebaut eine Gerade anzugeben. Diese Gerade ist entweder horizontal oder vertikal und deren Y- bzw. X-Koordinate wird in jeweils einer IntegerList gespeichert. Da nun der Graph passend in der Vertikalen skaliert wird, werden die Horizontalen Balken in der Höhe skaliert. Leider ist das Feature relativ neu, sodass die horizontalen Gerade in der Grafik leider nicht so einfach zu handhaben sind. Aber die vertikalen gehen.

Wo wir gerade dabei sind: Einfach mit der linken (= horizontal)/rechten (=vertikal) Maustaste auf die Zeichenfläche klicken und schon sind sie da.

Zusätzlich habe ich noch eine kleine Demonstration angehangen.

So sieht das erstellen dynamisch dann aus:
FGraph := TGraph.Create(self);
FGraph.Width := 500;
FGraph.Height := 200;
FGraph.Parent := self;
FGraph.MaxOffset := 10;
FGraph.Interval := 100;
FGraph.OnInterval := OnInterval;
FGraph.GraphColor := clRed;
FGraph.GridColor := clBlue;
FGraph.BackgroundColor := clBlack;
FGraph.BarColor := clGreen;
FGraph.BaseLine := 0;

MfG
xZise

TImage drag drop klappt nur aus dem Explorer, nicht mit FF

Ich Möchte gerne aus dem Firefox-Browser Bilder in ein TImage ziehen. Bilder aus dem Explorer kann ich über das Panel drauf ziehen, bei Bildern aus Firefox oder Outlook bekomme ich allerdings keinen Drag-Courser angezeigt.

type
TForm2 = class(TForm)
Panel1: TPanel;
Image1: TImage;
procedure FormCreate(Sender: TObject);
private
originalPanelWindowProc : TWndMethod;
procedure PanelWindowProc (var Msg : TMessage) ;
procedure PanelImageDrop (var Msg : TWMDROPFILES) ;
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;

uses ShellApi;

procedure TForm2.FormCreate(Sender: TObject);
begin
originalPanelWindowProc := Panel1.WindowProc;
Panel1.WindowProc := PanelWindowProc;

DragAcceptFiles(Panel1.Handle,true) ;
end;

procedure TForm2.PanelWindowProc(var Msg: TMessage) ;
begin
if Msg.Msg = WM_DROPFILES then
PanelImageDrop(TWMDROPFILES(Msg))
else
originalPanelWindowProc(Msg) ;
end; (*PanelWindowProc*)

procedure TForm2.PanelImageDrop(var Msg: TWMDROPFILES) ;
var
numFiles : longInt;
buffer : array of char;
begin
inherited;
numFiles := DragQueryFile(Msg.Drop, $FFFFFFFF, nil, 0) ;
if numFiles > 1 then
begin
ShowMessage('You can drop only one image file at a time!') ;
end
else
begin
DragQueryFile(Msg.Drop, 0, @buffer, sizeof(buffer)) ;
try
Image1.Picture.LoadFromFile(buffer) ;
except
on EInvalidGraphic do ShowMessage('Unsupported image file, or not an image!') ;
end;
end;
end; (*PanelImageDrop*)

Den code hab ich über die Suche hier als Newsfeed von delphi.about.com (Link: http://delphi.about.co ... t/dropontimage.htm ) gefunden.

Hoffe mir kann irgendwer weiterhelfen, wie ich da auch Bilder aus dem Firefox 3 reinziehen kann.

Hi, ich würde mir gerne mal 'n Schnlellstartmenue für...

Vista erstellen. ;)

Nun kommts, wie mache ich das am besten ? Es soll eigentlich und auch sonst, so aussehen
wie wenn man sich eine neue Symbolleite in der Taskbar erstellt.

Na daraus schlau geworden ? Hier ein Hinweis: *

Ich denke mir mal Teil eins könnte man mit Deskbands lösen obwohl ich es auf diese Art und Weise
nicht haben wollen würde.

Ich bin also auf Ideeensuchche und wäre für Schneebälle Hiweise nicht abgeneigt.

firebird datenbank portieren

hallo zusammen,
wenn ich das richtig sehe, kann man eine firebird -DB einfach portieren indem man das *.fdb file "mitnimmt".

Wenn ich mich recht erinnere war es einmal (u.A.) ein KO-Kriterium für MSACCESS, dass Microsoft die komplette Datenbank in einem File gespeichert hat, weil das File oft defekt war.

ist das bei firebird heute anders ?

Gruss Kh

Uses Liste

Ich wollt euch mal fragen, ob ungebrauchte Uses in der
usesliste zu programmproblemen führen können? ich will
nämlich mal eine sammlung von uses aufstellen und wollte
wissen ob zu viel des guten probleme macht. wär cool wenn
ihr ein paar kennen würdet und die hier posten könntet.
thx

problem beim öffnen und compiliere einer datenbank anwendung

Hallo, ich habe mit einem Kumpel zusammen ein kleines Projekt gestertet...ich hatte nun vor einiger zeit, die vcl anwendung geschriben und er hat dann die datenbanken eingefügt
nun hat er mir die sources zurück geschickt u, aber ich bekomme immer eine fehlermeldung beim öffnen.
er hat mir delphi 2009 standard gearbeitet und ich benutze delphi2009 architect.

ich bekomme mehrmals folgende fehlermeldung:

Fehler bei einem aus meheren SChritten bestehenden OLE-DB Vorgang. Prüfen sie die einzelnen OLE-DB Statuswerte, falls vorhanden. Daten wurden nicht verarbeitet

Selbiges auch beim Kompilieren und anschließendem starten.

weiß jemand hilfe?, danke schonmal

Oracle und Informix

hallo zusammen,
ich erinnere mich aus grauer Vorzeit an diese beiden RDBMS.;-)
Habe sie dann aber aus diversen Gründen aus den Augen verloren.

Spielen die beiden heute noch eine Rolle?

Danke gruss KH

Delphi Menu!

Kann man in Delphi in etwa so ein ähnlichens Menu basteln? :-D

.Net Entwicklung: suche gutes Buch zum Einstieg

Ich programmiere schon jahrelang mit Borland Delphi und zuletzt Codegear Delphi 2007 . Mit .Net hatte ich bisher keinerlei Erfahrung. Jetzt habe ich mir das Rad Studio 2007 Architect gekauft, das ja die .Net-Entwicklung beinhaltet. Ich benötige aber einmal einen Ansatzpunkt, eine Starthilfe, wie ich das ganze angehen soll.

Gibt es für die Entwicklung unter Rad Studio 2007 ein gutes Buch? Oder kann mir jemand auf die Sprünge helfen? Wo fange ich an? Wie schreibe ich ein einfaches "Hello Wold"? Ein entsprechender Windows Server mit IIS ist vorhanden.

Stringgrid Zeileweise abarbeiten II

function LeseDieNaechsteZeile(const StringGrid: TAdvStringGrid; aCol: integer = 1): string;
var aRow: Integer;
begin
aRow := StringGrid.Row;
if aRow < Pred(StringGrid.RowCount) then
Inc(aRow)
else
aRow := StringGrid.FixedRows;
StringGrid.Row := aRow;
Result := StringGrid.Cells ;
end;

Momentan ist es so das alles Zeilenweise abgearbeitet wird und wieder in der ersten Zeile begonnen wird.
Nun möchte ich doch dass es in der letzten Zeile endet und nicht wieder von vorne anfängt.
Wie muss ich den Code oben dafür anpassen?

Gruss
Capo

firebird Trigger

hallo zusammen,

ich weiss zwar nicht ob ich hier offtoppic bin, abert ich denke das gehört zu den DB.
Nachdem ich nun mein RDBMS zu firebird gewechselt habe,
vermisse ich die autoincrement Felder.
Bei meiner Suche bin ich auf den Tipp gestossen einen Trigger zu verwenden.
Leider kenne ich mich damit gar nicht aus, und die angegebene Syntax bringt bei der Verwendung mit IBexpert einen error

ACTIVE BEFORE INSERT POSITION 0
AS
BEGIN
IF (NEW.ID IS NULL) THEN
NEW.ID = GEN_ID(GEN_TBL_TEST_ID,1);

wie geht das richtig?

Gruss KH

Delphi2007 nach Neuinstallation Projektstarten nicht möglich

Hallo,
ich habe nach einem Neuaufsetzen meines OS Delphi2007 neuinstalliert. Die Installation läuft auch problemlos durch, wenn ich dann Delphi starte und ein Projekt öffnen möchte erhalte ich folgende Fehlermeldung:

"Zugriffsverletzung 00000000. Lesen von Adresse 00000000."

Bei Details der Fehlermeldung steht dann:

'############

{vcl100.bpl } Controls.TWinControl.DefaultHandler (Line 7334, "Controls.pas" + 23) + $17
{vcl100.bpl } Forms.TCustomForm.DefaultHandler (Line 4576, "Forms.pas" + 7) + $4
{vcl100.bpl } Controls.TControl.WndProc (Line 5146, "Controls.pas" + 83) + $6
{coreide100.bpl} ProjectFileUtils.CreateXmlMSBProjectFile (Line 483, "ProjectFileUtils.pas" + 1) + $13
{coreide100.bpl} ProjectModule.TBaseProject.Create (Line 785, "ProjectModule.pas" + 19) + $28
{coreide100.bpl} ProjectGroup.TProjectGroup.Create (Line 825, "ProjectGroup.pas" + 4) + $17
{coreide100.bpl} ProjectGroup.CheckForProjectGroup (Line 469, "ProjectGroup.pas" + 11) + $32
{coreide100.bpl} ProjectModule.CheckForProjectGroup (Line 2329, "ProjectModule.pas" + 1) + $0
{coreide100.bpl} ProjectModule.TBaseProject.Create (Line 770, "ProjectModule.pas" + 4) + $5
{delphicoreide100.bpl} BaseDelphiProject.TBaseDelphiProject.Create (Line 575, "BaseDelphiProject.pas" + 2) + $1E
{delphide100.bpl} DelphiProject.TDelphiProjectCreationTrait.OpenProject (Line 314, "DelphiProject.pas" + 5) + $19
{coreide100.bpl} ProjectFileUtils.LoadProjectFile (Line 856, "ProjectFileUtils.pas" + 30) + $13
{coreide100.bpl} ProjectFileUtils.LoadProjectFile (Line 863, "ProjectFileUtils.pas" + 37) + $9
{coreide100.bpl} ProjectFileUtils.LoadProjectFile (Line 871, "ProjectFileUtils.pas" + 45) + $10
{coreide100.bpl} ProjectModule.TModuleHandler.FileOpen (Line 2349, "ProjectModule.pas" + 1) + $B
{coreide100.bpl} DocModul.TFileOpenHandler.FileOpen (Line 3091, "DocModul.pas" + 1) + $A
{coreide100.bpl} DocModul.TFilterList.OpenFile (Line 786, "DocModul.pas" + 35) + $14
{bds.exe } AppMain.TAppBuilder.FileOpenDialog (Line 2338, "uiAppMain.pas" + 38) + $13
{bds.exe } AppMain.TAppBuilder.FileOpen (Line 2382, "uiAppMain.pas" + 3) + $4
{rtl100.bpl } Classes.TBasicAction.Execute (Line 11081, "commonClasses.pas" + 3) + $7
{vcl100.bpl } ActnList.TContainedAction.Execute (Line 388, "ActnList.pas" + 1) + $2C
{vcl100.bpl } ActnList.TCustomAction.Execute (Line 1000, "ActnList.pas" + 7) + $8
{rtl100.bpl } Classes.TBasicActionLink.Execute (Line 11010, "commonClasses.pas" + 2) + $7
{vcl100.bpl } Controls.TControl.Click (Line 5227, "Controls.pas" + 7) + $7
{vcl100.bpl } ComCtrls.TToolButton.Click (Line 17003, "ComCtrls.pas" + 0) + $0
{vcl100.bpl } Controls.TControl.WMLButtonUp (Line 5365, "Controls.pas" + 6) + $3E
{vcl100.bpl } Controls.TControl.WndProc (Line 5146, "Controls.pas" + 83) + $6
{vcl100.bpl } Controls.TControl.Perform (Line 5021, "Controls.pas" + 5) + $C
{vcl100.bpl } Controls.GetControlAtPos (Line 7095, "Controls.pas" + 4) + $73
{vcl100.bpl } Controls.TWinControl.ControlAtPos (Line 7118, "Controls.pas" + 13) + $E
{vcl100.bpl } Controls.TControl.Perform (Line 5021, "Controls.pas" + 5) + $C
{vcl100.bpl } Controls.TWinControl.IsControlMouseMsg (Line 7182, "Controls.pas" + 15) + $1F
{vcl100.bpl } Controls.TWinControl.WndProc (Line 7269, "Controls.pas" + 76) + $6
{vcl100.bpl } ComCtrls.TToolBar.UpdateButtonState (Line 18148, "ComCtrls.pas" + 5) + $1C
{vcl100.bpl } ComCtrls.TToolBar.UpdateButtonStates (Line 18158, "ComCtrls.pas" + 3) + $4
{vcl100.bpl } ComCtrls.TToolBar.WndProc (Line 19588, "ComCtrls.pas" + 80) + $6
{vcl100.bpl } Controls.TWinControl.MainWndProc (Line 7073, "Controls.pas" + 3) + $6
{rtl100.bpl } Classes.StdWndProc (Line 11583, "commonClasses.pas" + 8) + $0
{rtl100.bpl } Contnrs.TComponentList.GetItems (Line 380, "commonContnrs.pas" + 1) + $4
{vcl100.bpl } Forms.TApplication.ProcessMessage (Line 8105, "Forms.pas" + 23) + $1
{vcl100.bpl } Forms.TApplication.HandleMessage (Line 8124, "Forms.pas" + 1) + $4
{vcl100.bpl } Forms.TApplication.Run (Line 8223, "Forms.pas" + 20) + $3
{bds.exe } bds.bds (Line 195, "" + 7) + $7

'############

Was soll denn das sein? Zugriffsverletzung? Delphi wurde mit allen standard Einstellungen installiert.
Ich hatte das Programm auch schon deinstalliert und den Vorgang wiederholt. Es erscheint die gleiche Meldung.
NetFramework ist installiert (Version3x) incl. Sprachpaket.
Das einzigste was ich nicht mitinstalliert habe ist "Rave".

EDIT:
Die selbe Meldung kommt auch wenn ich ein neues Standardprojekt anlegen möchte.
Normale Code Datei(pas) kann ich öffnen und bearbeiten, nur Projektdateien eben nicht.... :gruebel:

Kann mir jemand helfen?

Danke Dirk

Falsche Unit wird geladen mit STRG+Linksclick

So nach über 2 Monaten bei der Fehler regelmäßig auftritt konnte ich ihn nun reproduzieren. Das hat mich manchmal echt viel Nerven gekostet!

Man hat zwei Projekte (PROJ1, PROJ2), die beide eine Unit mit dem selben Namen UTEST verwenden und in denen ein Typ TBLUB defniniert ist.

1. Man hat in Delpih nichts geladen.
2. Man Lädt PROJ1 über den Opendialog
3. Man klickt mit STRG+Links auf TBLUB innerhalb des PROJ1 (UTEST sollte geöffnet werden)
4. Man öffnet PROJ2 über den Opendialog (und macht irgendwas)
5. Man öffnet PROJ1 über REOPEN!
6. Man klickt mit STRG+Links auf TBLUB innerhalb des PROJ1 (BUG: UTEST von PROJ2 wird geladen)!

Ich würd tippen REOPEN setzt den aktuellen Pfad nicht richtig.
Das ist ganz besonders nervig wenn man dann die falsche UTEST abändern und sich fragt warum das alles nicht funktioniert :/

USB von anderen Rechner prüfen

Hallo,

Ich wollte eure Meinung zu meiner Idee hören und fragen ob sowas machtbar ist. Ich habe Adminrechte in einem Netzwerk mit rund 50 Computer. Nun möchte ich mit Delphi prüfen ob ein USB-Stick an den Computer angeschloßen ist oder wurde. Jedoch ohne das ich an den Rechner muss. Das ich alles per Remote überprüfen kann. Ich hatte mir das vorgestellt über die USb-Registry. Diese immer wieder zu überprüfen und wenn sich diese geändert hat, dann kann ich sehen das ein USB-Stick angeschloßen wurde. Ich habe das schon so programmiert das das Programm mir alle Rechnernamen mit IP in einem Array ausgibt. Nun ist die Frage wie ich die Registry-Datei über Delphi überprüfen kann? Hat jemand eine Idee? Wie kann Remoteanweisungen in Delphi beutzen?

Schöne Grüße und Danke im Vorraus :)
Hackepjotre

DB-Felder automatisch aus Delphi befüllen

Hi,

wo wäre denn der zentralste Ansatzpunkt, wenn ich Felder wie "geändert am"/"geändert von" und "angelegt am"/"angelegt von"
automatisch bei jedem neuen Datensatz bzw. bei jeder Änderung befüllen/aktualisieren würde ?

Ich stehe ein bisschen auf Kriegsfuß mit dem Triggern von MS SQL, wäre dies dennoch die beste Lösung oder gibt es auch ein Delphi-Ereignis (z.b. in der DBConnection), was dafür geeignet wäre. Ich benutze in meiner Anwendung einen Type TUser (selbstdefinierter Record), um Infos über den Anwender zu speichern...

Gäbe es auch die Möglichkeit, über den DB-User in Ms SQL diese Änderungen automatisch in die jeweils dafür angelegten Felder einzutragen ?

Danke schonmal für Tipps&Tricks....

function -> Array zurück geben ?

Hallo zusammen,

wie kann ich bei einer function ein Array zurückgeben ?

So gehts nicht :

function Spalten_trennen(LB:TListBox):Array of string;

Gruss

Holger