kidrock1

Всем привет. Созданное приложение запускается первый раз нормально. Но если свернуть его кнопкой на андройд-смартфоне, то обратно оно не разворачивается, а вы увидите только чёрный экран.

Чтобы приложение заработало, приходится лезть в настройки и там его останавливать. Потом всё работает как надо. И сворачивается и разворачивается.

Помогите, пожалуйста. 

project.zip

Всем привет, подскажите пожалуйста, как закачать файл с русским названием на сервер через IdFTP? Вместо названия файла появляются знаки вопросов. Сервер на UTF-8.

Спасибо, разобрался сам)) Оказывается надо было поменять IdFTP.TransferType на ftBinary. Извините за беспокойство)))

Друзья, всем привет. Возникла следующая проблема. Использую IdFTP для закачки файла на сервер. Всё получается хорошо. Я коннектюсь к серверу и посылаю на него файл, но файл на сервере оказывается битым и отличается по размеру от оригинала. Вот код:

procedure TForm5.Button2Click(Sender: TObject);
var
  IdFTP:TIdFtp;
begin
  IdFTP:=TIdFTP.Create(nil);
  if IdFTP.Connected then
  begin
    IdFTP.Abort;
    IdFTP.Quit;
  end;
  IdFTP.Username := '************.ru';
  IdFTP.Password := 'ыыыыыыыыыыыы';
  IdFTP.Host := 'чччччччччччч';
  IdFTP.Port := 21;
  try
      IdFTP.Connect;
      IdFTP.ChangeDir('/test');
      IdFTP.Put('E:\test\in\1.jpg', '1.jpg', False);
      IdFTP.Quit;
  except
      ShowMessage('xep');
  end;
  IdFTP.free;
end;

 

Предлагаю использовать 

uses 
  System.IOUtils;

  {$IFDEF ANDROID}
  FFileDatabase := TPath.Combine(TPath.GetSharedDocumentsPath, 'news.s3db');
  {$ENDIF}


  {$IFDEF MSWINDOWS}
  FFileDatabase := ExtractFilePath(ParamStr(0)) + '\files\news.s3db';
  {$ENDIF}

Спасибо, то что надо

Друзья, всем привет. Хотел узнать можно ли подключить бд, указав относительный путь. Вот у меня не получается. Положил базу (хотя в конекшене указал, что если её нет, то она создаётся), указал сначала относительный путь (files/news.s3db). При компиляции выскакивает ошибка 'unable to open database file'  

Соответственно, когда указываю абсолютный путь, то всё нормально. Даже если базы нет в указанном месте, она приспокойно сама создаётся. Windows

В том то и дело, что трудно найти ошибку, если по логике всё правильно и на одной платформе работает, а на другой нет. В любом случае большое вам спасибо и с наступающим, а я продолжу поиски решения)

да

Нет, не работает.

Я правильно понял, что должно быть вот так?

unit Unit2;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
  IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP,
  FMX.Objects, FMX.StdCtrls;

type
 ThreadHTTP1=class(TThread)
 private
  Stream:TMemoryStream;
  i:integer;


 public
  procedure Execute;override;
  procedure ShowResult1;
end;


type
  TForm3 = class(TForm)
    Button1: TButton;
    Image1: TImage;
    IdHTTP1: TIdHTTP;
    procedure Button1Click(Sender: TObject);
  private
    MyHTTP1: ThreadHTTP1;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;
  lStream1: TMemoryStream;
implementation

{$R *.fmx}








procedure ThreadHTTP1.Execute;
var
 j:integer;
begin
  inherited;
    try

      lStream1 := TMemoryStream.Create;
      Form3.IdHTTP1.Get('http://totalmma.ru/newsupload/8306.jpg',lStream1);



    except

      // ShowMessage('no');
      // InStream := TResourceStream.Create(HInstance, 'fighttime', RT_RCDATA);
      // InStream.SaveToFile(System.IOUtils.TPath.GetDocumentsPath + System.SysUtils.PathDelim + news_id +'.jpg');

    end;


   Synchronize(ShowResult1);

end;

procedure ThreadHTTP1.ShowResult1;
begin

    ShowMessage(IntToStr(Form3.IDHTTP1.Response.ContentLength));
    Form3.Image1.Bitmap.LoadFromStream(lStream1);
    form3.Image1.Visible := true;
    Form3.Caption:=IntToStr(i)+' kbs';

    Form3.IdHTTP1.Free;
    Stream.Free;

end;


procedure TForm3.Button1Click(Sender: TObject);
var
    MyHTTP1:ThreadHTTP1;
begin
          MyHTTP1:=ThreadHTTP1.Create(False);
end;

end.

Не совсем понял, но постараюсь разобраться) Ярослав, а такие фоновые операции в Delphi можно сделать только с помощью потоков?

Да, создал отдельный проект потестировать. Всё доступно по умолчанию.

Всем привет, друзья. Столкнулся со следующей проблемой. Создаётся поток с целью загрузки картинок во время чтения статьи. Да так чтобы основная форма в момент загрузки не была заморожена. Вот код:

type
 ThreadHTTP1=class(TThread)
 private
  i:integer;
 public
  procedure Execute;override;
  procedure ShowResult1;
end;

procedure ThreadHTTP1.Execute;
var
 j:integer;
begin
  inherited;
  try
    lStream1 := TMemoryStream.Create;
    Form3.IdHTTP1.Get('http://totalmma.ru/newsupload/8306.jpg',lStream1);
  except
    // ShowMessage('no');
  end;
  Synchronize(ShowResult1);
end;

procedure ThreadHTTP1.ShowResult1;
begin
  ShowMessage(IntToStr(Form3.IDHTTP1.Response.ContentLength));
  Form3.Image1.Bitmap.LoadFromStream(lStream1);
  Form3.Image1.Visible := true;
  Form3.Caption:=IntToStr(i)+' kbs';
  Form3.IdHTTP1.Free;
  Stream.Free;
end;


procedure TForm3.Button1Click(Sender: TObject);
var
  MyHTTP1:ThreadHTTP1;
begin
  MyHTTP1 := ThreadHTTP1.Create(False);
end;

Так вот проблема в следующем. На винде всё работает. А вот когда компилируешь под андройд и переносишь на телефон, при нажатии на кнопке ничего не происходит. Очень прошу помочь, друзья.

Всё, разобрался. Спасибо большое, друзья!

Может ScrollBox?

Поставил VertScrollBox, сделал align = client, потом засунул туда лайаут и сделал ему тоже align client. Но также ничего не скроллится. Возможно надо как то указать скроллбоксу что ему скролить?

 

Добрый день,

1. Я бы создавал отдельно TImage и несколько (если нужно) TText или TLabel. 
2. Порядок этих контролов устанавливал на основании вида исходных данных: "текст-картинка-текст" или "картинка-текст" и тд.

 

Этот вариант подходит больше всего, так как текст грузится у меня сразу из базы, а картинки подгружаются через поток уже во время чтения статьи. 

А это всё должно быть на Layout'e? Если да, то как мне сделать его тянущимся? как то через scroll bar'ы? т.е. если делать всё на лайауте, то у него нет скролл бара, чтобы прокрутить всю статью и видно только ее часть.

Всем привет, друзья.

Встал вопрос как лучше в мобильном приложении расположить статью с картинкой. Например, сначала картинка, а затем текст или что еще хуже сначала текст, потом картинка, а потом опять текст)) В общем для меня как для новичка хочется узнать как легче и главное удобнее для пользователя  расположить картинку + текст.