mr.pm Posted November 6, 2019 Share Posted November 6, 2019 Не получается сохранить изображение на канве в файл. Делаю: Canvas1.SaveToFile(fName,tijpg); В результате размер файла всегда "0". Куда рыть? Quote Link to comment Share on other sites More sharing options...
Sherzod Posted November 6, 2019 Share Posted November 6, 2019 Какую версию и какое издание UniGUI используете, уточните пожалуйста!? Quote Link to comment Share on other sites More sharing options...
mr.pm Posted November 6, 2019 Author Share Posted November 6, 2019 1.90.0.1496 Quote Link to comment Share on other sites More sharing options...
Sherzod Posted November 7, 2019 Share Posted November 7, 2019 7 hours ago, mr.pm said: 1.90.0.1496 Какое издание? Используете пробную версию? Quote Link to comment Share on other sites More sharing options...
mr.pm Posted November 9, 2019 Author Share Posted November 9, 2019 Добрый вечер! Да. Quote Link to comment Share on other sites More sharing options...
mr.pm Posted November 16, 2019 Author Share Posted November 16, 2019 Никто не сохраняет картинки TUniCanvas ??? Quote Link to comment Share on other sites More sharing options...
Sherzod Posted November 16, 2019 Share Posted November 16, 2019 On 11/6/2019 at 10:16 PM, mr.pm said: Делаю: Canvas1.SaveToFile(fName,tijpg); В результате размер файла всегда "0". Я не смог воспроизвести. 12 minutes ago, mr.pm said: Никто не сохраняет картинки TUniCanvas ??? Сохраняем, как в демо, к примеру: \FMSoft\Framework\uniGUI\Demos\Desktop\CanvasDemo\ Quote Link to comment Share on other sites More sharing options...
mr.pm Posted November 16, 2019 Author Share Posted November 16, 2019 Размер файла "0" var FName, FPath, FExt: string; Ti: TuniImageFormat; begin case (Sender as TMenuItem).Tag of 1: begin Ti := tiJPG; FExt := '.jpg' end; 2: begin Ti := tiPNG; FExt := '.png' end; 3: begin Ti := tiGIF; FExt := '.gif' end; 4: begin Ti := tiBMP; FExt := '.bmp' end else begin Ti := tiJPG; FExt := '.jpg' end; end; FPath := UniServerModule.LocalCachePath; FName := 'EMEimg' + IntToStr(FCnt) + FExt; try case pcEM.ActivePage.PageIndex of 0: begin EMECanvas.SaveToFile(FPath + FName, Ti); UniSession.SendFile(FPath + FName); end; 1: begin EMICanvas(FPath + FName, Ti); UniSession.SendFile(FPath + FName); end; end; finally Inc(FCnt); end; end; Quote Link to comment Share on other sites More sharing options...
mr.pm Posted November 16, 2019 Author Share Posted November 16, 2019 Размер канвы 700х600 Quote Link to comment Share on other sites More sharing options...
Sherzod Posted November 16, 2019 Share Posted November 16, 2019 On 11/7/2019 at 12:43 AM, mr.pm said: 1.90.0.1496 Всегда старайтесь использовать последние сборки. 3 minutes ago, mr.pm said: Размер файла "0" Если возможно, создайте тестовый пример, и дайте ссылку для скачивания или отправьте запрос на портал поддержки: http://unigui.com/support/support-portal Quote Link to comment Share on other sites More sharing options...
mr.pm Posted November 16, 2019 Author Share Posted November 16, 2019 Свойство AutoSubmit установил в true. Файл получил. Благодарю за помощь!!! Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.