Results 1 to 8 of 8

Thread: SavetoFile

  1. #1
    Senior Member
    Join Date
    Sep 2004
    Location
    BELGIE(Vilvoorde)
    Posts
    638

    Question SavetoFile

    CodeTyphon 7.1 + Windows 10.

    dit werkt prima
    varJpg.SaveToFile('TEST.jpg');

    dit werkt niet ???
    varJpg.SaveToFile('TEST'+formatdatetime('dd' + '/' + 'mm' + '/' + 'YYYY', Now)+'.jpg');


    Code:
    {$mode objfpc}{$H+}
    
    interface
    
    uses
      {$IFNDEF WINDOWS} jpeg, {$ENDIF}
      Classes, SysUtils, Forms, Controls, Graphics, Dialogs, Buttons,
      Printers, ExtCtrls,
      LCLIntf, LCLType, LCLProc;
    
    type
    
      { TForm1 }
    
      TForm1 = class(TForm)
        Panel1: TPanel;
        SpeedButton1: TSpeedButton;
        SpeedButton2: TSpeedButton;
        procedure SpeedButton1Click(Sender: TObject);
        procedure SpeedButton2Click(Sender: TObject);
      private
      public
      end;
    
    var
      Form1: TForm1;
    
    implementation
    
    {$R *.frm}
    
    { TForm1 }
    
    procedure TForm1.SpeedButton1Click(Sender: TObject);
    begin
      Close;
    end;
    
    procedure TForm1.SpeedButton2Click(Sender: TObject);
    var
      R: TRect;
      varJpg: TJPEGImage;
    begin
      varJpg := TJPEGImage.Create;
      try
        R := Rect(0, 0, Panel1.Width, Panel1.Height);
        varJpg.SetSize(Panel1.Width, Panel1.Height);
        varJpg.Canvas.CopyRect(R, Panel1.Canvas, R);
        varJpg.SaveToFile('TEST.jpg');
       
        //SaveToFile('TEST'+formatdatetime('dd' + '/' + 'mm' + '/' + 'YYYY', Now)+'.jpg');
    
      finally
        varJpg.Free;
      end;
    end;
    end.

  2. #2
    '/' is niet toegestaan in een bestandsnaam op Windows.

    Bart

  3. #3
    Senior Member
    Join Date
    Sep 2004
    Location
    BELGIE(Vilvoorde)
    Posts
    638

    Exclamation

    Is dit op te lossen ?

  4. #4
    Ander teken gebruiken

    Ik gebruik meestal yyyy-mm-dd.

  5. #5
    Senior Member
    Join Date
    Sep 2004
    Location
    BELGIE(Vilvoorde)
    Posts
    638

    Thumbs up

    Dank u

  6. #6
    En yyyy-mm-dd is prima te sorteren en niet multi-interpretabel i.t.t. dd-mm-yyyy.

    Bart

  7. #7
    Silly member NGLN's Avatar
    Join Date
    Aug 2004
    Location
    Werkendam
    Posts
    5,095
    Ik accepteer alleen dagen >12.
    (Sender as TNLDUser).Signature := 'Groeten van Albert';

  8. #8
    Fornicatorus Formicidae VideoRipper's Avatar
    Join Date
    Mar 2005
    Location
    Vicus Saltus Orientalem
    Posts
    5,470
    Overigens hoef je ook geen ingewikkelde aaneenvoeging van losse strings te gebruiken, onderstaande is gewoon geldig:
    Code:
    varJpg.SaveToFile(Formatdatetime('"TEST"dd-mm-YYYY".jpg"', Now));
    Let op de dubbele quotes (") om aan te geven dat de tekst ertussen letterlijk moet worden opgenomen in het eindresultaat en dat het geen onderdeel van de formattering uitmaakt.
    TMemoryLeak.Create(Nil);

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •