Delphi 12 dostupné

[jirka52]

GetMem(FBuffer, 4096);

[jirka52]

Každopádně v Delphi 11.3. to funguje korektně, jak 32 bit, tak 64 bit, tak aspoň něco.
Prostě si počkám na opravu v Delphi 12.1.

[Radek Červinka]

Tazke testovaci aplikace nebude? Co je to za stream? Neslysel jsem o zadnem problemu, a tak se pripadne neopravi, pokud nebude ukazana chyba. Muze se jednat o nejaky specialni stream?

[Radek Červinka]

takze, jak jsem rekl, funguje normalne, a to jak

Kód: Delphi [Vybrat]

1. var
2.   fs: TFileStream;
3.   buf: PAnsiChar;
4.   i: Integer;
5. begin
6.   GetMem(buf, 4096);
7.   fs := TFileStream.Create(ExtractFilePath(ParamStr(0)) 'demo.txt', fmOpenRead);
8.   i:= fs.Read(buf[1], 4096);
9.   ShowMessage(IntToStr(i));
10.   Memo1.Text := Copy(buf, 1, 4096);
11.   fs.Free;
12. end;

tak treba i

Kód: Delphi [Vybrat]

1. var
2.   fs: TFileStream;
3.   buf: Ansistring;
4.   i: Integer;
5. begin
6.   SetLength(buf, 4096);
7.   fs := TFileStream.Create(ExtractFilePath(ParamStr(0)) 'demo.txt', fmOpenRead);
8.   i:= fs.Read(buf[1], 4096);
9.   ShowMessage(IntToStr(i));
10.   Memo1.Text := Copy(buf, 1, 4096);
11.   fs.Free;
12. end;

i

  i:= fs.Read(buf^, 4096);

[vandrovnik]

Kód: Delphi [Vybrat]

1.   buf: PAnsiChar;
2. ...
3.   i:= fs.Read(buf[1], 4096);
4.  

Nemělo by tam být buf[0] ?

[jirka52]

Právě zjišťuji, kde je problém. Jedná se o kód uvnitř komponenty, který jsem nepsal a spolehlivě funguje dost dlouho.

[jirka52]

Je to nějaký divný.
V D12, 32 bit příkaz
FBufEnd := FStream.Read(FBuffer^, 4096);
stream přečte a uloží do předem alokované paměti.
Ale v D12 64 bit taky přečte daný počet bytů - vrací to hodnota fce Read, ale  FBuffer je prázdná.

[jirka52]

Už jsem na to přišel. Ten stream, který do toho vstupuje, je v 64 bit prázdný.

[Radek Červinka]

Kód: Delphi [Vybrat]

1.   buf: PAnsiChar;
2. ...
3.   i:= fs.Read(buf[1], 4096);
4.  

Nemělo by tam být buf[0] ?

No ja si tim nejsem jisty, podle toho, jak se k tomu asi pak chovas.
Ja jsem prvni napsal tu variantu s tim SetLength, kdy jsem si byl jisty ze mam alokaci dobre, a data zacinaji na [1], a pak jsem zkusil to GetMem, ale neuvedomil jsem si, ze je to trosku neco jineho a nejsem si jist jak se k tomu dal kompilator postavi a kam presne FBuffer^ ukaze, a asi neni uplne korektni pak ta operace s Copy (myslim tim v te varianta s GetMem).
Ale jako ciste buffer na PAnsiChar to fungovat bude.

[jirka52]

Ještě než vlezu do celé procedury, tak si uložím stream do souboru.
V Delphi 12, 64 bit je tento soubor prázdný

[jirka52]

Takže jsem to našel. Blob, který je uložený v databázi, je po uložení do memory streamu prázdný.
Pouze a jen v D12, 64 bit.

[Radek Červinka]

Takže jsem to našel. Blob, který je uložený v databázi, je po uložení do memory streamu prázdný.
Pouze a jen v D12, 64 bit.

Prazdny znamena ze, fs.Size  = 0?

[jirka52]

Právě že ne. Soubor má velikost 5748 B a obsahuje samé NUL hodnoty
Neboli stream opravdu nemůže nic přečíst.

[jirka52]

Aplikace používá Dbexpress. Stahuji blob z databáze (Oracle) a když si v D12 64 bitblob uložím, tak je prázdný.
Zkoušel jsem použít Dbxora.dll  z D11.3, ale nepomohlo to

[Radek Červinka]

1)

A kdyz das
var
  xx: TBytes;

xx := dataset.FieldByName('xxxx').AsBytes;

tak to xx obsahuje co?

2)
Mas v Project / Options / Linking/ zapnuto nebo vypnuto
- Support address space Layout randomize a
- Support High Entropy?