Eksperten | Delphi

Kald til MS Access Database og SQL server i én ADOQuery?

Sun, 12 Feb 2012 11:46:10 +0100

Hej,

Jeg vil gerne lave et SQL kald hvori der indgår en JOIN mellem 2 databaser - problemet er bare at den ene database ligger i en MS Access database mens den anden ligger i en SQL server - hvordan får jeg Delphi til at lave et SQL Join mellem de to databaser?

jeg er klar over at jeg skal arbejde med DatSource ADOConnection men hvordan...?

Irriterende timeout i Delphi 7 på en win7 64 bits platform

Thu, 02 Feb 2012 12:17:43 +0100

Når jeg arbejder i Delphi 7 editoren opstår der med 3-5 minutters mellemrum et timeout, hvor editoren ikke reagerer. Uanset hvad jeg gør, begynder editoren at svare igen efter 10-30 sekunder.
Det virker som om, editoren laver noget autogem eller lignende.
Jeg har prøvet at arbejde på netværksdrev, USB-drev og lokal harddisk og der er ikke den store forskel på antallet og længden af timeouts.
Er der nogen, der ved, hvad der sker og allerhelst, hvordan slår jeg det fra.
Jeg kører Windows 7 64 bits og Symantec Endpoint Protection 12.1.
Jeg har prøvet at slå SEP fra uden at mærke nogen forskel, så jeg tror, det er Delphi, der er skurken.

Manglende danske tegn

Tue, 24 Jan 2012 16:12:35 +0100

Jeg har en form hvor jeg kan oprette en mail som jeg så sender via Indy's SMTP komponent.
Det virker sådan set fint nok lige bortset fra at i min mailbody forsvinder de danske tegn.
Jeg har en tekstbox hvor jeg intaster subject og en memo hvor jeg kan indtaste bodytekst.
De danske tegn forsvinder kun i body - i subject sker der ikke noget med dem.

Jeg vil være meget glad for input til hvad jeg skal se efter for at få det til at fungere.

Sikre mig at form er færdigoprettet

Tue, 24 Jan 2012 10:01:11 +0100

Jeg har et problem i et program der sandsynligvis skyldes at min main form ikke er helt klar før koden fortsætter.
Det der sker er at jeg når brugeren skal logge på altid sikrer mig at alle forms er lukket.
I den funktion spørger jeg på Application.MainForm.Name fordi den skal selvfølgelig ikke lukkes.
Og første gang jeg gør det fejler den med en AV

Jeg har sat en timer på der giver et par sekunders forsinkelse før logon. Men det gør inegn forskel.

Når programmet ellers er kørende, så kommer der ikke flere AV i den kode.

Den komplette funktion:
procedure FormsClose;
var
i: integer;
Form: TForm;
FormName: string;
begin
Application.ProcessMessages;
try
for i := Screen.FormCount - 1 downto 0 do
begin
Form := Screen.Forms[i];
if (Form <> Application.MainForm) then
begin
FormName := Screen.Forms[i].Name;
if (FormName <> Application.MainForm.Name) and
(FormName <> 'frmDBConn') and
(FormName <> 'frmStyling') and
(FormName <> 'frmLogon') and
(FormName <> 'frmSplash') and
then Screen.Forms[i].Close;
end;
end;
except
on E:exception do
Logfile.Error('U_Utilities.FormsClose: ' + FormName + ' - ' + #13#10 + E.Message);
end;
end;

Form skal altid være øverst

Mon, 23 Jan 2012 10:23:09 +0100

Jeg har en form som jeg meget gerne skulle have til at være on top af alt - også andre kørende Windows programmer.
Hvordan gør jeg nu lige det?

Jeg har prøvet
SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_NOMOVE Or SWP_NOSIZE);
og diverse afarter uden held.

Applikationen starter som minimeret til tray og så viser den omtalte form som helst skal være aktiv indtil brugeren har gjort noget aktivt.

Compiler directives

Sun, 22 Jan 2012 13:55:29 +0100

Mit problem er måske ikke så relevant som for nogle år side. Nu har man jo hukommelse nok til en billig penge! - men alligevel?

Jeg har i min *.dpr fil og samtlige tilknyttede *.pas filer indsat en linie som følger {$INCLUDE COMPILER.INC}. I denne include fil står følgende:

compiler.inc
// --------------------------------------------------------------// Følgende statement skulle minimere coden, der genereres
// af compileren
// --------------------------------------------------------------

{$D-,L-,O+,Q-,R-,Y-,S-}

//
// Forklaring følger
//
(*
$D- prevent placing debug info to code
$L- prevent placing local symbols to code
$O+ optimize code, remove unnecessary code
$Q- remove code for integer overflow
$R- remove code for range checking
$Y- remove code for stack checking
$S- prevent placing symbol info to code
$Y- will prevent placing symbol information to your code
*)

Include filen indlæses imiddelbart efter INTERFACE .

Det har overhovedet ingen indflydelse på størrelsen af EXE-filen. Hvorfor ikke???

Meget speciel rapport

Fri, 13 Jan 2012 23:38:10 +0100

Jeg har et ønske om at kunne lave en meget speciel rapport fra nogle data jeg har i et Delphi program.
Det er en liste over postnumre hvor der er et tilhørende tal (det indikerer hvor mange gange postnummeret er fundet i en tabel)
Disse ønskes ud på et kort over Danmark hvor postnumre vises i en boble eller noget sammen med tallet.

Sandsynligheden for at det kan laves i Delphi er nok ikke så stor, men så bare et eller andet eksternet program som kan tage en fil som input og lave rapporten.

XML og INI FILER...

Wed, 11 Jan 2012 15:10:27 +0100

HEJ,

Jeg har nu i 3 dage forgæves søgt at få min XML fil til at opføre sig som en INI-fil (og initialise mine variable ved start, skrive tilbage ved pgm-lukning - osv), men enten er XML-filen "meget lidt lydhør for mine bønner" eller også gør jeg det forkert (sikkert det mest rigtige), så jeg har brug for en af experternes råd (kode ?) så jeg kan det til at køre.

Eksperimenter med at åbne XML-filer går tilsyneladende udmærket, men at skrive indholdet til komponenten går galt.

eks:

Label1
Klik her:

Label2
Klik IKKE her:

...

Jeg kan læse hele møget ind i en Stringgrid, men direkte til label1 og label2 .... fungerer ikke...

Jeg bruger Delphi XMLDocument komponenten.

PS: Jeg kan ikke finde noget relevant på nettet...

PSS: Skal bruges i dansk, norske, svensk udgaver... (vælges ved da.xml, no.xml eller se.xml filen).

Kristian

Delphi 7 contra Windows 7 64 BIT

Sun, 08 Jan 2012 09:14:37 +0100

Jeg har anskaffet mig en ny maskine med Windows 7 64 bit og skal formentlig have opdateret min Delphi 7.

Er der nogen, der har prøvet at køre en Delphi 7 (som er 32 BIT) på en Windows 7 64 Bit. Kan det lade sig gøre. Er der noget man selv kan gøre for at det kan lade sig gøre.

Drop filer på form Delphi XE2

Sat, 07 Jan 2012 21:28:32 +0100

Med denne kode kan jeg droppe en eller flere filer på en form, hvis jeg compiler med Delphi 2006.
Hvis jeg benytter Delphi XE2 virker det ikke.
Er der nogen der har en forklaring og en løsning?

Mvh. Erik

unit unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, StdCtrls, Menus, ExtCtrls,
ShellAPI;

type
TFileCatcher = class(TObject)
private
fDropHandle: HDROP;
function GetFile(Idx: Integer): string;
function GetFileCount: Integer;
function GetPoint: TPoint;
public
constructor Create(DropHandle: HDROP);
destructor Destroy; override;
property FileCount: Integer read GetFileCount;
property Files[Idx: Integer]: string read GetFile;
property DropPoint: TPoint read GetPoint;
end;

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private

procedure WMDropFiles(var Msg: TWMDropFiles); message WM_DROPFILES;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

constructor TFileCatcher.Create(DropHandle: HDROP);
begin
inherited Create;
fDropHandle := DropHandle;
end;

destructor TFileCatcher.Destroy;
begin
DragFinish(fDropHandle);
inherited;
end;

function TFileCatcher.GetFile(Idx: Integer): string;
var
FileNameLength: Integer;
begin
FileNameLength := DragQueryFile(fDropHandle, Idx, nil, 0);
SetLength(Result, FileNameLength);
DragQueryFile(fDropHandle, Idx, PChar(Result), FileNameLength + 1);
end;

function TFileCatcher.GetFileCount: Integer;
begin
Result := DragQueryFile(fDropHandle, $FFFFFFFF, nil, 0);
end;

function TFileCatcher.GetPoint: TPoint;
begin
DragQueryPoint(fDropHandle, Result);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
DragAcceptFiles(Form1.Handle, True);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
DragAcceptFiles(Self.Handle, False);
end;

procedure TForm1.WMDropFiles(var Msg: TWMDropFiles);
// Handle WM_DROPFILES message
var
I: Integer; // loops thru all dropped files
DropPoint: TPoint; // point where files dropped
Catcher: TFileCatcher; // file catcher class
begin
inherited;
// Create file catcher object to hide all messy details
Catcher := TFileCatcher.Create(Msg.Drop);
try

for I := 0 to Pred(Catcher.FileCount) do
showmessage(Catcher.Files[I]);
// Get drop point
DropPoint := Catcher.DropPoint;
finally
Catcher.Free;
end;
// Notify Windows we handled message
Msg.Result := 0;
end;

end.

Ønsker en TCheckbox på en ToolButton

Fri, 06 Jan 2012 15:53:39 +0100

Jeg har en Toolbar med nogle Toolbutton.

Jeg ønsker at putte en checkbox på een af dem.

Er der nogen der ved hvordan det klares?

Delphi springer et udtræk over?

Wed, 04 Jan 2012 12:29:47 +0100

Det er lige godt pokkes, men Delphi er begyndte at springe et ADO-udtræk over når jeg henter fra en Accessdatabase.

Og det er et meget simpelt udtræk:

----------------

procedure TForm1.Updater;
var
Temp,Teller: integer;
begin

Temp := 1;

ADODataset.CommandText := 'select * from kalender';
ADODataset.Open;

While not ADODataSet.Eof do begin
Lars[Temp] := ADODataSet.FieldByName('Lars').AsString;

showmessage(inttostr(temp)+' '+Lars[Temp]);
ADODataSet.Next;
Inc(Temp);
end;

----------------

I databasen er der skrevet noget på linierne 1, 10, 40, 41, 42, 80, 81, 82, 83, 91 og 92. Der er i alt 366 linier (skudår).

Den der showmessage skriver alt helt korrekt, dvs. "1 bilservice", "10 kunder", "40 kursus", "41 kursus", "42 kursus" men når der kommer til 83 så skriver den kun tallet 83 fra Temp og ikke det som står i feltet, og på næste popup skriver den så 84 samt det der står i felt 83. Det giver overhovedet ingen mening. Det virker som om den lige laver en ekstra Inc(Temp) efter 82, men ????

Få administratorrettigheder til dele af program

Mon, 02 Jan 2012 13:00:19 +0100

Jeg kan få mit program til at bede om at få administratorrettigereder når det starter op med et UAC-manifest.

Jeg ønsker dog ikke at der promptes for admin-rights hver gang programmet startes, men kun når der f.eks. er brug for at skrive til HKLM.

Kan det lade sig gøre at der først promptes, når en bestemt kode skal afvikles.

Mvh. Erik

Radiobutton

Sat, 31 Dec 2011 15:02:15 +0100

Hej,

jeg har fire TRadioButtons på fire forskellige Groupboxe (derfor kan jeg ikke have en TRadioGroup som ellers ville løse problemet)

Jeg vil gerne lave det således at kun een af de fire radiobuttons er aktive - altså den som man senest har klikket på er aktiv...

Hvordan gør jeg det lettest?

Combobox og ADOQuery

Tue, 27 Dec 2011 13:19:15 +0100

Hej,

Jeg fylder en combobox på følgende måde:

for i:=0 to ADOQuery1.RecordCount-1 do
begin
combobox1.Items.AddObject('ProduktionsOrdreNummer ' +
ADOQuery1.FieldByName('SalesProj').AsString,
TOBject(ADOQuery1.FieldByName('SalesProj').AsString));
ADOQuery1.next;
end;

combobox1.ItemIndex := 0;

dernæst bruger jeg comboboxchange til at finde ProduktionsOrdreNummeret:

procedure TForm10.ComboBox1Change(Sender: TObject);
begin

showmessage(
String(combobox1.Items.Objects[combobox1.ItemIndex]));

end;

Ovenstående giver en EAccessViolation efter et eller 2 klik på comboboxen...

Hvorfor det??

Jeg har prøvet at sætte tal ind i comboxen manuelt og det fungerer fint??? Det er som om at problemet er knyttet til ADOQuery

catalog i sql server og ADO query

Sun, 18 Dec 2011 13:56:56 +0100

Hej,

jeg har flere kataloger på en sql server - jeg skal forespørge ned i en databsae der ligger i én af katalogerne...

hvordan gør jeg det?

Kataloget hedder PTA-Log og databasen der ligger i PTA-log hedder TabelPalleSedler...

har prøvet [PTA-Log].[TabelPalleSedler] men det virker ikke og jeg kan hedder ikke finde noget på google...

læse access 2007 database i delphi 10

Fri, 09 Dec 2011 19:15:50 +0100

læse access 2007 database i delphi 10.

Jeg ønsker at læse indholdet fra en tabel over i en array eller record.

Jeg er ligeglad med evt. links i tabellen.

Hvilke commandoer, faneblade og værktøjer skal jeg så kigge nærmere på. ?

Er der andet evt. drivere der skal være installeret?

Word automation - hvordan

Sun, 04 Dec 2011 13:04:51 +0100

Jeg skal lave følgende:
Danne en RTF fil med poster til mailmerge
Bruge en bestemt template fil til at lave mailmerge
Åbne et bestemt dokument i Word og gemme den som en PDF. I Office 2007(med en plugin) og nyere er det muligt direkte.

Hvordan griber jeg bedst det an? eksempler og forslag modtages gerne.

- jeg gør allerede de nævnte ting i dag i M$ Access, så det bør også kunne gøres i Delphi :-)

IntraWeb 10 i delphi 2010

Mon, 21 Nov 2011 20:09:47 +0100

Efter at have hørt om bruge Morfik, IntraWeb i delphi til at lave hjemmesider, har jeg leget lidt og vil derfor gerne vide hvorledes man får oversat koden til noget som kan afvikles på en microsft IIS server? Eller har jeg misforstået noget :-)

IN TStringList

Sun, 20 Nov 2011 16:08:53 +0100

Hej,

Jeg vil gerne kunne se om en String er indeholdt i en TStringList.

Umiddelbart nget i stil med:

Result = 'MyString' in [string1, string2, string3, string4];

Ovenstående virker bare ikke for strings.

AnsiMatchText er helt fantastisk men den funktion tager "array of Strings" som input og tager ikke TStringList som input (hvorfor i øvrigt ikke?). Hvad gør jeg så?

Lige nu benytter jeg en for-loop og looper igenne alle substrings i min TStringList... træls...