Лидеры

про это? http://www.fmxexpress.com/code-snippet-for-full-screen-interstitial-ads-in-delphi-xe8-firemonkey-on-android/

на ios нету интентов, там все делается через url. открываете url и система сама откроет приложение если такое установлено modURL.rar

картинку желательно не загружать в базу а складывать в папку на сервере (и лучше всего сжать до нужных размеров) и в базу вписать лишь путь до файла вот мануалчик на пхп http://php.net/manual/ru/features.file-upload.post-method.php на delphi это просто составляем POST запрос aURL - путь до скрипта, который будет принимать файлы aFileName - полный путь до файла, который нужно отправить var aData: TMultipartFormData; aHTTP: THTTPClient; aResp: TStringStream; begin aResp := TStringStream.Create('', aEncoding); aData := TMultipartFormData.Create(); aHTTP := THTTPClient.Create; try try aData.AddFile('image', aFileName); // на php считываем по полю image aHTTP.Post(aURL, aData, aResp); Result := aResp.DataString; // тут скрипт должен что-то вернуть о успешном принятии except Result := TmyHTTPClient.ERROR_COMMON; // генерация своей ошибки, если что-то пошло не так end; finally FreeAndNil(aHTTP); FreeAndNil(aData); FreeAndNil(aResp); end;

да, T(Net)HTTPClient как раз и работает адекватно на всех платформах при запуске проверить функцией CheckInet, если нету доступа показать окно с прокси

function GetDefaultFilePath(const FileName: string): string; begin {$IFDEF Android} Result := TPath.Combine(TPath.GetSharedDocumentsPath, FileName); {$ENDIF} {$IFDEF IOS} Result := TPath.Combine(TPath.GetDocumentsPath, FileName); {$ENDIF} {$IFDEF MSWindows} Result := TPath.Combine(TPath.GetDocumentsPath, FileName); {$ENDIF} ForceDirectories(ExtractFilePath(Result)); end; procedure TForm.ShowPDF; var {$IFDEF Android} Intent: JIntent; {$ENDIF} FilePath, tmpStr: string; begin FilePath := GetDefaultFilePath(Filename); {$IFDEF Android } try Intent := TJIntent.Create; Intent.setAction(TJIntent.JavaClass.ACTION_VIEW); Intent.setDataAndType(StrToJURI('file:' + FilePath), StringToJString('application/pdf')); Intent.setFlags(TJIntent.JavaClass.FLAG_ACTIVITY_NO_HISTORY); Intent.setFlags(TJIntent.JavaClass.FLAG_ACTIVITY_NEW_TASK); SharedActivity.startActivity(Intent); except on E: Exception do ShowToast(E.Message); end; {$ENDIF} {$IFDEF IOS} wbViewPDF.Visible := True; wbViewPDF.URL := 'file:/' + FilePath; {$ENDIF} end; Приблизительно так...