kidrock1

Пользователи
  • Публикаций

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

  • Посещение

  • Победитель дней

    1

kidrock1 стал победителем дня 31 декабря 2014

kidrock1 имел наиболее популярный контент!

Информация о kidrock1

  • Звание
    Пользователь

Посетители профиля

477 просмотров профиля
  1. Всем привет. Созданное приложение запускается первый раз нормально. Но если свернуть его кнопкой на андройд-смартфоне, то обратно оно не разворачивается, а вы увидите только чёрный экран. Чтобы приложение заработало, приходится лезть в настройки и там его останавливать. Потом всё работает как надо. И сворачивается и разворачивается. Помогите, пожалуйста. project.zip
  2. Всем привет, подскажите пожалуйста, как закачать файл с русским названием на сервер через IdFTP? Вместо названия файла появляются знаки вопросов. Сервер на UTF-8.
  3. Спасибо, разобрался сам)) Оказывается надо было поменять IdFTP.TransferType на ftBinary. Извините за беспокойство)))
  4. Друзья, всем привет. Возникла следующая проблема. Использую 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;
  5. Спасибо, то что надо
  6. Друзья, всем привет. Хотел узнать можно ли подключить бд, указав относительный путь. Вот у меня не получается. Положил базу (хотя в конекшене указал, что если её нет, то она создаётся), указал сначала относительный путь (files/news.s3db). При компиляции выскакивает ошибка 'unable to open database file' Соответственно, когда указываю абсолютный путь, то всё нормально. Даже если базы нет в указанном месте, она приспокойно сама создаётся. Windows
  7. В том то и дело, что трудно найти ошибку, если по логике всё правильно и на одной платформе работает, а на другой нет. В любом случае большое вам спасибо и с наступающим, а я продолжу поиски решения)
  8. Я правильно понял, что должно быть вот так? 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.
  9. Не совсем понял, но постараюсь разобраться) Ярослав, а такие фоновые операции в Delphi можно сделать только с помощью потоков?
  10. Да, создал отдельный проект потестировать. Всё доступно по умолчанию.
  11. Всем привет, друзья. Столкнулся со следующей проблемой. Создаётся поток с целью загрузки картинок во время чтения статьи. Да так чтобы основная форма в момент загрузки не была заморожена. Вот код: 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; Так вот проблема в следующем. На винде всё работает. А вот когда компилируешь под андройд и переносишь на телефон, при нажатии на кнопке ничего не происходит. Очень прошу помочь, друзья.
  12. Всё, разобрался. Спасибо большое, друзья!
  13. Поставил VertScrollBox, сделал align = client, потом засунул туда лайаут и сделал ему тоже align client. Но также ничего не скроллится. Возможно надо как то указать скроллбоксу что ему скролить?
  14. Этот вариант подходит больше всего, так как текст грузится у меня сразу из базы, а картинки подгружаются через поток уже во время чтения статьи. А это всё должно быть на Layout'e? Если да, то как мне сделать его тянущимся? как то через scroll bar'ы? т.е. если делать всё на лайауте, то у него нет скролл бара, чтобы прокрутить всю статью и видно только ее часть.