4programmers.net 4p Forum Delphi i Pascal Wyświetlanie grafiki w TImage

Wyświetlanie grafiki w TImage

Wyświetlanie grafiki w TImage
jurkowojc
JU
  • Rejestracja: dni
  • Ostatnio: dni
  • Postów: 35
0

Delphi 10.4, Firebird 5, ZEOS 8

Kopiuj
StoredProc1.StoredProcName := 'NAZWA_PROCEDURY';
StoredProc1.Params.Clear;
...
// plik *.jpg jako parametr wyjściowy  

StoredProc1.Params.AddParam(StoredProc1.Params.CreateParam(ftBlob, 'NAZWA_PARAMETRU', ptOutput));
...

W przypadku UNIDAC konstrukcja :

Kopiuj
Image1.Picture.LoadFromStream(TStringStream.Create(StoredProc1.ParamByName('NAZWA_PARAMETRU').AsString));

działa prawidłowo. W przypadku ZEOS-ów nie wyświetla się nic. Nie mam bladego pojęcia gdzie jest problem.

Udostępnij
Komentuj
PrzemysławWiśniewski
PW
  • Rejestracja: dni
  • Ostatnio: dni
  • Postów: 130
0

Zobacz czy działa TDBImage, to jest gotowiec tylko wskazujesz pole z jakiego ma wyświetlić obraz;

Udostępnij
Komentuj

Zarejestruj się i dołącz do największej społeczności programistów w Polsce.

Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.

Utwórz konto