Перейти к содержанию
Fire Monkey от А до Я

gubinden@mail.ru

Пользователи
  • Постов

    4
  • Зарегистрирован

  • Посещение

Сообщения, опубликованные gubinden@mail.ru

  1. Задача. При получении входящего вызова получить номер, но и далее его отобразить на мониторе пк. Прочитал множество тем, но не нашел решения для Android 12 получения номера входящего. Остальная часть задачи уже реализовано. Подскажите возможно ли такое?

  2. 0. нафега лишние преобразования image?

      было сделано для проверки, думал в это дело

    1. Не жирно битмапы в базе? пользуй png/jpeg или в формате п.0

    пример

    2. streamы надо иногда перематывать... position=0

    не помогло

     

    если сделать через файл

       fs_on:=Tfilestream.Create(opendialog1.filename,fmOpenRead);   //   идет но по названию файла, нужно TBitmap
            Fauthorization.Uq.ParamByName('image').LoadFromStream(fs_on,ftBlob);
            Fauthorization.Uq.Execute;
           fs_on.Free;

    все загружается нормально

     

    загружается почему-то только 65535 байт

     

    все решилось. всем спасибо

  3. 0. нафега лишние преобразования image?

      было сделано для проверки, думал в это дело

    1. Не жирно битмапы в базе? пользуй png/jpeg или в формате п.0

    пример

    2. streamы надо иногда перематывать... position=0

    не помогло

     

    если сделать через файл

       fs_on:=Tfilestream.Create(opendialog1.filename,fmOpenRead);   //   идет но по названию файла, нужно TBitmap
            Fauthorization.Uq.ParamByName('image').LoadFromStream(fs_on,ftBlob);
            Fauthorization.Uq.Execute;
           fs_on.Free;

    все загружается нормально

  4. Добрый день. Пытаюсь загрузить изображение в базу MySql, в итоге загружается лишь часть изображения (в вложении слева оригинал, справа что загрузилось). Что в коде сделано неправильно?

    var

    fs:TMemoryStream;

    begin

    Im_cert.Bitmap.Assign(image);
     try
        Fauthorization.Uq.SQL.Clear;
        Fauthorization.Uq.SQL.Add('insert  u1133772_default.certificates');
        Fauthorization.Uq.SQL.Add('(id_o_u,attachment ) VALUES ( ');
        Fauthorization.Uq.SQL.Add('''' + id_user + ''', ');
        Fauthorization.Uq.SQL.Add(':image)');

    fs := TMemoryStream.Create;

    Im_cert.Bitmap.SaveToStream(fs);

    Fauthorization.Uq.Params[0].LoadFromStream(fs, ftBlob);

    Fauthorization.Uq.ExecSQL;

    fs.Free;

    Fauthorization.Uq.Active := false;
    showmessage('Загружено');

     

    Если поставить Fauthorization.Uq.Params[0].Assign(image); происходит аналогично.

    Если 

    fs_on:=Tfilestream.Create(opendialog1.filename,fmOpenRead);   
    Fauthorization.Uq.ParamByName('image').LoadFromStream(fs_on,ftBlob);

    То все загружается нормально, но нужно загрузить bitmap не по названию файла.

    El9mZr5x.png

×
×
  • Создать...