[es] - Problem sa korišćenjem mORMota 1.18

stameni
Ivan Stamenković

Član broj: 6739
Poruke: 538

+9 Profil

^{01.04.2022. u 14:48 - pre 24 meseci}

Preuzeo sam najnoviji mORMot. Potom sam shvatio, da bih kompajlirao primere iz mORMota, da moram da dodam i FastMM4 Memory Manager, međutim i tu nešto zavitlava. Ispratio sam sve stavke prilikom instalacije oba paketa, ali prilikom pokretanja mORMotovih primera sada redovno dobijam grešku:

Code:
[Fatal Error] SynTable.pas(12279): Internal error: C15052

Delphi 7 radi pod virtuelnom mašinom sa 32-bitnim XP-om.

Kako to prevazići?

Još jedno pitanje, van prethodne priče: kako je najlakše pomoću mORMota napraviti PDF fajl?

Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739

+92 Profil

Re: Problem sa korišćenjem mORMota 1.18

^{01.04.2022. u 19:32 - pre 24 meseci}

Koji mORMot koristis 1.18 ili 2.0 i koji primer isprobavas?

> Još jedno pitanje, van prethodne priče: kako je najlakše pomoću mORMota napraviti PDF fajl?

SynPDF, ili jos lakse, TGDIPages iz mORMotReport.pas,
pogledaj u Samples, ima nekoliko primera kako se koristi.

Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html

Odgovor na temu

stameni
Ivan Stamenković

Član broj: 6739
Poruke: 538

+9 Profil

Re: Problem sa korišćenjem mORMota 1.18

^{01.04.2022. u 21:01 - pre 24 meseci}

Citat:

savkic: Koji mORMot koristis 1.18 ili 2.0 i koji primer isprobavas?

mORMot 1.18; nisam primetio tu novu verziju.

BTW, nemam pojma kako, ali izgleda da sada radi. Moguće je da sam prilikom instalacije sistematski pravio grešku za greškom, tako da nijedan primer iz C:\Dev\mORMot\SQLite3\Samples nije hteo da se iskompajlira. Sada kompajliranje prolazi, i nadam se da će u praksi i da radi

Nego, muči me još jedna stvar... Za 32-bitni XP preporučuju instalaciju memory managera FastMM4. Ja sam ga raspakovao, podesio Library Path i Browsing Path, ali nisam siguran da li je to sve... Npr. da li treba neki DLL premestiti na neku drugu adresu?

Možeš li mi poslati neki kratak snippet koji bi mi rekao -- radi, ili ne radi?

Citat:

> Još jedno pitanje, van prethodne priče: kako je najlakše pomoću mORMota napraviti PDF fajl?

SynPDF, ili jos lakse, TGDIPages iz mORMotReport.pas,
pogledaj u Samples, ima nekoliko primera kako se koristi.

Proučiću ovo s pažnjom.

Hvala ti, i to mnogo

Odgovor na temu

stameni
Ivan Stamenković

Član broj: 6739
Poruke: 538

+9 Profil

Re: Problem sa korišćenjem mORMota 1.18

^{02.04.2022. u 10:16 - pre 24 meseci}

Izgleda da trenutno sve radi; nemam pojma šta mu je bilo...?!

Prema mom iskustvu, da bi mORMot mogao da se kompajlira neophodno je da bude instaliran i memory manager FastMM4. Kada direktorijum FastMM4 preimenujem, kompajliranje mORMotovih primera ne prolazi, ali kada ga vratim na "ispravnu" varijantu, radi i kompajliranje i izvršavanje.

Odgovor na temu

stameni
Ivan Stamenković

Član broj: 6739
Poruke: 538

+9 Profil

Re: Problem sa korišćenjem mORMota 1.18

^{02.04.2022. u 12:29 - pre 24 meseci}

Uzgred, evo i kako napraviti PDF pomoću mORMota:

Code:

unit PDF3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, SynPdf, StdCtrls;

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
lPdf   : TPdfDocument;
lPage  : TPdfPage;
begin
  lPdf := TPdfDocument.Create;
  try
    lPdf.Info.Author        := 'Tester';
    lPdf.Info.CreationDate  := Now;
    lPdf.Info.Creator       := 'Tester';
    lPdf.DefaultPaperSize   := psA4;
    lPage := lPDF.AddPage;
    lPDF.Canvas.SetFont('Helvetica',20.0,[]);
    lPDF.Canvas.SetLeading(lPDF.Canvas.Page.FontSize);
    lPDF.Canvas.SetLineWidth(0.1);

    lPdf.Canvas.BeginText;
    lPdf.Canvas.TextOut( 300, 700,  'This is some text.');
    lPdf.Canvas.EndText;
    lPdf.SaveToFile('c:\test.pdf');
  finally
    lPdf.Free;
  end;
end;
end.

Možda nekom zatreba...

Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739

+92 Profil

Re: Problem sa korišćenjem mORMota 1.18

^{03.04.2022. u 05:18 - pre 24 meseci}

Posto tek pocinjes bolje da odmah krenes sa ver2, https://github.com/synopse/mORMot2

Mnogo je lakse, doduse dokumentacija i primeri nisu na nivou tako da ces morati da gledas primere iz 1.18.

I definitivno pogledaj mORMotReports, mozes vrlo brzo napraviti tabelarni izvestaj sa svime sto ti treba

Odgovor na temu

stameni
Ivan Stamenković

Član broj: 6739
Poruke: 538

+9 Profil

Re: Problem sa korišćenjem mORMota 1.18

^{09.04.2022. u 11:08 - pre 24 meseci}

Citat:

savkic:I definitivno pogledaj mORMotReports, mozes vrlo brzo napraviti tabelarni izvestaj sa svime sto ti treba

Ha, probao sam i odličan je!

Hvala na preporuci!

Možeš li mi samo reći, ako poželim da pravim kompleksnije PDF-ove, na koju "stranu" da gledam? U SynPdf?

BTW, moraću još malo da isprobam, ali izgleda da ceo mORMot ipak funkcioniše

Šta mu je bilo na početku, nemam pojma; verovatno sam ja negde grešio.

Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739

+92 Profil

Re: Problem sa korišćenjem mORMota 1.18

^{09.04.2022. u 18:49 - pre 24 meseci}

Da, SynPdf, dobijes TCanvas i onda crtas po njemu.
Mozes probati i da pravis EMF (enhanced metafile) slike pa onda njih da ubacis u SynPDF.

Odgovor na temu