Sætte directory

Hej

Jeg bruger Delphi XE.

/Peter

chdir('C:\');

... men har vist ikke gjort det længe (brugt XE) :-). Mener proceduren hedder SetDir('c:\testkat');

Hvis du skal sætte kataloget til samme som programmet kan du gøre noget i denne retning:

SetDir(ExtractFileDir(Application.ExeName));

... alt sammen udfra hukommelsen så det kan godt være du skal lave lidt selv.

Naturligvis, Martin. Der er også: SetCurrentDir(const Dir: string): Boolean

Hej

Se nedenstående eksempel.

Button1 virker ikke og Button2 virker.

Problemet er at kald Excel.Workbooks.Open(Str2) fejler når Str2 bliver for lang, fordi Excel filerne jeg skal læse ligger dybt i directory strukturen på serveren.
Jeg vil forsøge at sætte default directory til det directory hvor filerne ligger, så Str2 kun bliver filnavnet.
Alternativt kan jeg kopiere filerne til eks. C-drevet og læse dem derfra med Excel.Workbooks.Open(Str2), men det virker noget knoklet.

/Peter



unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  ComObj,  { Tilføjet }
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ ***** Virker ikke ***** }
procedure TForm1.Button1Click(Sender: TObject);
  Var
    Str1, Str2: String[255];
    Excel:      Variant;

begin
    Str1:='C:\Hest';
    SetCurrentDir(Str1);

    Str2:=GetCurrentDir;
    Showmessage(Str2);    { Viser current directory er C:\Hest }

    Str2:='Hest.xls';
    Excel:=CreateOleObject('Excel.Application');
    Excel.Workbooks.Open(Str2);
    Excel.Visible:=True;
end;

{ ***** Virker ***** }
procedure TForm1.Button2Click(Sender: TObject);
  Var
    Str2:      String[255];
    Excel:      Variant;

begin

    Str2:='C:\Hest\Hest.xls';
    Excel:=CreateOleObject('Excel.Application');
    Excel.Workbooks.Open(Str2);
    Excel.Visible:=True;
end;

end.

Først skal du droppe de statiske strenge. Der er ingen der bruger string[<et eller andet tal mellem 1 og 255>] længere; bare skriv "string;" Så er du i alt fald ikke bundet af grænser der.

Den anden ting er at du kan arbejde med relative stier. Skift til kataloget og skift relativt i forhold til det. Så slipper du for lange trælse stier.

Hej

Problemet er at eks. Excel.ActiveWorkbook.SaveAs('PruHest.xls') ikke ikke følger CurrentDirectory men skal specificeres præcis.

Jeg lukker, tak.

/Peter

Har du prøvet med dynamiske strenge?

Hej hrc,

Jeg gør præcis som du skriver, problemet er at filerne ligge så dybt i directory strukturen på serveren at Excel.Workbooks.Open(aFilename); ikke kan håndtere det.
Jeg har valgt den alternetive løsning at lade mit program kopiere Excel filen til C: drevet og derefter bruge Excel.Workbooks.Open(aFilename); fra C: drevet.
Det tager måske 5 sek. ekstra de få gange om ugen den funktion bruges (Åbner flere Excel filer), så det betyder ikke noget.

/Peter

Hvis data ligger på et netværksdrev kan du måske mappe et drev op som starter inde i træet. Det afhænger naturligvis af graden af frihed på nettet. Der findes jo den irriterende persontype, kaldet netværksadministratorer, som ikke mener at nogen anden end dem (og især ikke jeg) skal have rettighed til noget som helst :-)

Hej hrc,

God ide, det havde jeg ikke lige tænkt over, har fundet en stump kode som kan mappe et drev, prøver det.

/Peter