Delphi 12 dostupné

[jirka52]

Ukládám blob do streamu a ten načítám. Blob je obyčejný xml soubor.
V Options mám obojí zapnuto (true)

Blob načítám klasicky:

Kód: Delphi [Vybrat]

1. procedure TMainForm.GetBlobFromDB(const APri_Id: Integer);
2. var
3.   myStream: TMemoryStream;
4. begin
5.   Dm.sqReportFiles.Close;
6.   Dm.sqReportFiles.Params[0].Value := APri_Id;
7.   Dm.sqReportFiles.Open;
8.   myStream := TMemoryStream.Create;
9.   try
10.     Dm.sqReportFilesPRI_REPORT.SaveToStream(myStream);
11.     myStream.Position := 0;
12.    //a tady už je to rozbité
13.   finally
14.     myStream.Free;
15.   end; {try}
16.   Dm.sqReportFiles.Close;
17. end;
18.  

[Radek Červinka]

V Options mám obojí zapnuto (true)

No čekal jsem, že řekneš, že se to chová stejně když obě změníš. Tj. že to zkusíš.

[jirka52]

Vypnul jsem to a pořád stejné - prázdný blob.
Omlouvám se, od rána jenom běhám po fabrice a nejsem u PC.
U jiného projektu, kdy stahuju z databáze pdf, tak to funguje i 64 bitů OK.
Budu nad tím dál bádat

[jirka52]

Ahoj.
Heuréka, našel jsem to.
Delphi 12, 64 bit při použití Dbexpresu a komponenty "TSQLDataSet" vrací prázdný blob.
Když si ale připojím TClientDataSet pomocí TDataSetProvideru, tak TClienDataset vrací blob v pořádku.

[Radek Červinka]

Asi jo - tady je nejake info:  https://quality.embarcadero.com/browse/RSP-43326

Ahoj.
Heuréka, našel jsem to.
Delphi 12, 64 bit při použití Dbexpresu a komponenty "TSQLDataSet" vrací prázdný blob.
Když si ale připojím TClientDataSet pomocí TDataSetProvideru, tak TClienDataset vrací blob v pořádku.

[jirka52]

Díky všem za pomoc 

[soko.ban]

Hm, 12 docela zklamání.
IDE je stále stejný opruz. Našeptávání po chvíli přestane fungovat a je nutný restart, občas se po zavření posledního okna s editorem nějak záhadně vyprázdní i postranní panely a pomůže jenom restart, Rename v Refactor menu mám pořád šedivý. Taky by už konečně mohli přidat rychlé hledání fce, aby člověk nemusel instalovat Navigator (Ctrl+G).
Na malých projektech to celkem jde, ale u velkého projektu, kde je hodně unit, form, frame to je docela bída. Změna deklarace, nebo přidání třídy začne házet internal error a musí se dát build.
Trochu se to zlepšilo, abych jim nekřivdil, ale starý bolesti trvají.
Aspoň, že tam konečně dali ty víceřádkový stringy. Trvalo to jen 20 let.

[Radek Červinka]

Rename v Refactor menu mám pořád šedivý.

Zaskrtnul jsi pri instalaci Modeling, jak jsem psal https://delphi.cz/post/Delphi-12-Athens-dostupne.aspx ?

[soko.ban]

Aha, to si nejsem jist. Tvůj článek jsem četl hned jak vyšel, ale instaloval jsem to až za pár dní, takže jsem na to zapomněl. Určitě jsem zaškrtl TeeChart a odškrtl Interbase.

Edit: tak když se kouknu do Tools/Manage features, tak mám zatrhnuto to co si pamatuju, že jsem zaškrtl (Samples, Help, Fonts, TeeChart, DUnit) a dokonce i Modeling. Takže ho nainstalovaný mám.

Vím, že mi refaktoring občas fungoval, ale nevysledoval jsem jak. Po pravdě se bez toho dokážu obejít, ale kdyby to fungovalo, tak bych to asi občas použil.

[jirka52]

Mám vysledovaný, že refaktoring nefunguje, když máš "inline variables".

[Stanislav Hruška]

Potvrdzujem to na základe príspevkov na DelphiPraxis.
Osobne som to nikdy neskúsil.
Ak si dobre pamätám, tak sa to týka aj formátovania. Preto používajú MMX a/alebo GExperts

[Radek Červinka]

Mám vysledovaný, že refaktoring nefunguje, když máš "inline variables".

Ano, puvodni refaktoring ja psany v .NET a jeste je tam nejaky hacek pro který je problém to udrzovat, proto je separovan do "Modeling", kde jsou dalsi balicky odsouzené k nahrazení (UML), resp. doinstalaci kdyz to nekdo bude potrebovat. Mimochodem separace .NET částí velmi zrychlila IDE a zlepšila stabilitu, a i po doinstalovani je výsledek lepší než v D11.

Proto nepodporuje inline, protoze se pocita, ze se co nejdrive nahradi.
Ale jinak na jine na klasicke konstrukce funguje dobre, ja ho pouzivam hlavne prave na Rename. Proto mne prekvapuje, ze to puvodnimu tazateli nefunguje.

[jirka52]

A co jim ještě nefunguje, je formátování kódu - klávesová zkratka Ctrl + D v případě, kdy si zadáte
jimi nově nadefinovaný řetězec začínající 3 apostrofy.
Schválně si to vyzkoušejte, rozhodí to celej kód

[vandrovnik]

Tohle mi připadá jako větší průšvih :-( Už při čtení novinek, kde tuhle novinku zmiňovali, mi zatrnulo, jestli to mají opravdu pořádně vyzkoušené...
https://quality.embarcadero.com/browse/RSP-43274

Pro mne dostatečný důvod k tomu, abych Delphi 12 zatím nepoužíval.

[jirka52]

Taky už jsem zpět na D11.3