программирую раз в год, уровень языка минимальный, наверно.
код:
procedure TForm1.FormCreate(Sender: TObject);
begin
{$IFDEF MSWINDOWS}
pflog:='log.bas';
pfmem:='mem.mem';
pfprod:='prod.txt';
pfpost:='post.txt';
{$ELSE} {$IFDEF IOS}
//код для мобильной платформы iOS
{$ELSE} {$IFDEF ANDROID}
pflog:=Tpath.GetDocumentsPath+pathdelim+'log.bas';
pfmem:=Tpath.GetDocumentsPath+pathdelim+'mem.mem';
pfprod:=Tpath.GetDocumentsPath+pathdelim+'prod.txt';
pfpost:=Tpath.GetDocumentsPath+pathdelim+'post.txt';
{$ENDIF}
{$ENDIF}
{$ENDIF}
memo1.Text:='';
if not(fileexists(pfmem)) then memo1.Lines.SaveToFile(pfmem);
memo1.Lines.LoadFromFile(pfmem);
if memo1.Lines.Count=0 then memo1.Lines.Add('01.01.0001');
label1.Text:=memo1.Lines[0]; IdIMAP41.Connect(); - тут программа вылетает
//ComboBox1.Items.LoadFromFile(pfprod);
//ComboBox2.Items.LoadFromFile(pfpost);
//loadlist;
end;
Задача проста: найти письмо и скачать вложение, для дальнейшей обработки.
При запуске на Windows 8 все работает нормально, после установки apk и запуска на телефоне программа вылетает при IdIMAP41.Connect()
Менял на pop3 тоже самое
Подскажите пожалуйста в чем может быть проблема? Может есть другие варианты для загрузки почты?
Вопрос
Sashar333
Здравствуйте!.Delphi 10.2. Android 6 (Xiaomi Redmi note 4)
программирую раз в год, уровень языка минимальный, наверно.
код:
procedure TForm1.FormCreate(Sender: TObject);
begin
{$IFDEF MSWINDOWS}
pflog:='log.bas';
pfmem:='mem.mem';
pfprod:='prod.txt';
pfpost:='post.txt';
{$ELSE} {$IFDEF IOS}
//код для мобильной платформы iOS
{$ELSE} {$IFDEF ANDROID}
pflog:=Tpath.GetDocumentsPath+pathdelim+'log.bas';
pfmem:=Tpath.GetDocumentsPath+pathdelim+'mem.mem';
pfprod:=Tpath.GetDocumentsPath+pathdelim+'prod.txt';
pfpost:=Tpath.GetDocumentsPath+pathdelim+'post.txt';
{$ENDIF}
{$ENDIF}
{$ENDIF}
memo1.Text:='';
if not(fileexists(pfmem)) then memo1.Lines.SaveToFile(pfmem);
memo1.Lines.LoadFromFile(pfmem);
if memo1.Lines.Count=0 then memo1.Lines.Add('01.01.0001');
label1.Text:=memo1.Lines[0];
IdIMAP41.Connect(); - тут программа вылетает
//ComboBox1.Items.LoadFromFile(pfprod);
//ComboBox2.Items.LoadFromFile(pfpost);
//loadlist;
end;
Задача проста: найти письмо и скачать вложение, для дальнейшей обработки.
При запуске на Windows 8 все работает нормально, после установки apk и запуска на телефоне программа вылетает при IdIMAP41.Connect()
Менял на pop3 тоже самое
Подскажите пожалуйста в чем может быть проблема? Может есть другие варианты для загрузки почты?
Заранее спасибо!
Ссылка на комментарий
23 ответа на этот вопрос
Рекомендуемые сообщения
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.