munhauz

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

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

  • Посещение

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

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

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

Блок последних пользователей отключён и не показывается другим пользователям.

Включить
  1. И так проблемма решилась if frm_main.IdSMTP1.Connected then frm_main.IdSMTP1.Disconnect; frm_main.IdSMTP1.Host := readiniprop('mail', 'host'); // адрес smtp-сервера frm_main.IdSMTP1.Port := StrToInt(readiniprop('mail', 'port')); frm_main.IdSMTP1.Username := readiniprop('mail', 'user');; frm_main.IdSMTP1.Password := readiniprop('mail', 'pass');; frm_main.IdMessage1.Clear; frm_main.IdMessage1.Subject := (readiniprop('mail', 'tema')); // текст темы сообщения frm_main.IdMessage1.Recipients.EMailAddresses := adreess; // указываем адрес получателя frm_main.IdMessage1.From.Address := readiniprop('mail', 'user'); // указываем адрес отправителя frm_main.IdMessage1.From.name := readiniprop('mail', 'otprv'); // имя отправителя письма frm_main.IdMessage1.ContentType := 'multipart/mixed; type="text/html'; //frm_main.IdMessage1.CharSet := 'Windows-1251'; frm_main.IdMessage1.IsEncoded := True; frm_main.IdMessage1.MessageParts.Clear; TIdAttachmentFile.Create(frm_main.IdMessage1.MessageParts, 'shablon.doc'); with TIdText.Create(frm_main.IdMessage1.MessageParts, nil) do begin CharSet := 'Windows-1251'; ContentType := 'text/html'; Body.text := s.text; end; //frm_main.IdMessage1.Body.text := s.text; frm_main.IdSMTP1.connect; // (5000); // соединяемся frm_main.IdSMTP1.Send(frm_main.IdMessage1); // отправляем frm_main.IdSMTP1.Disconnect; // отъединяемся } помогло http://www.indyproject.org/Sockets/Blogs/RLebeau/2005_08_17_A.en.aspx
  2. Доброго дня у меня возникла такого ряда проблема формирую текст письма состоящего из HTML тегов и информации соотвественно (отсылается табличный отчет на почту) тут попросили еще файл прикреплять (word) до прикрепления файла все отправлялось и все было хорошо но как стал прикреплять файл пошла какая то фигня а именно вид письма приходящего мягко говоря изменился (на фото ) if frm_main.IdSMTP1.Connected then frm_main.IdSMTP1.Disconnect; frm_main.IdSMTP1.Host := readiniprop('mail', 'host'); // адрес smtp-сервера frm_main.IdSMTP1.Port := StrToInt(readiniprop('mail', 'port')); frm_main.IdSMTP1.Username := readiniprop('mail', 'user');; frm_main.IdSMTP1.Password := readiniprop('mail', 'pass');; frm_main.IdSMTP1.UseTLS := utNoTLSSupport; frm_main.IdSMTP1.AuthType := satDefault; frm_main.IdMessage1.Clear; frm_main.IdMessage1.Subject := (readiniprop('mail', 'tema')); // текст темы сообщения frm_main.IdMessage1.Recipients.EMailAddresses := adreess; // указываем адрес получателя frm_main.IdMessage1.From.Address := readiniprop('mail', 'user'); // указываем адрес отправителя frm_main.IdMessage1.CharSet := 'Windows-1251'; frm_main.IdMessage1.From.name := readiniprop('mail', 'otprv'); // имя отправителя письма frm_main.IdMessage1.ContentType := 'text/html'; frm_main.IdMessage1.Body.Add(s.text ); frm_main.IdMessage1.MessageParts.Clear; att:=TIdAttachmentFile.Create(frm_main.IdMessage1.MessageParts, 'shablon.doc'); frm_main.IdSMTP1.connect; // (5000); // соединяемся frm_main.IdSMTP1.Send(frm_main.IdMessage1); // отправляем frm_main.IdSMTP1.Disconnect; // отъединяемся } вроде все пишу верно но явно что то не так .....
  3. Все проблема решена сам виноват очень много года коментил и потому закоментил прикрепление непосредственно самого добавления ответа в JSO
  4. Ок. спасибо, осознал проблему .теперь еще вопрос , как добраться до поля name JSO := TJSONObject.ParseJSONValue(JSO.GetValue('response').ToString) as TJSONObject; JSO := TJSONObject.ParseJSONValue(JSO.GetValue('pipelines').ToString) as TJSONObject; frm_main.Memo1.text := JSO.GetValue('name').value; выдает ошибку
  5. munhauz

    Проблема с добавление данных в масив

    Доброго дня народ. Сразу к сути. есть ответ с сервера в формате JSON таким вот форматом мне нужно несколько данных что бы потом формировать с ними запросы нужны ID пишу на Delphi 10 JSO := TJSONObject.ParseJSONValue(html) as TJSONObject; if Assigned(JSO) then begin JSO := TJSONObject.ParseJSONValue(JSO.GetValue('response').ToString) as TJSONObject; JsA := TJSONObject.ParseJSONValue(JSO.GetValue('pipelines').ToString) as TJSONArray; JSO := TJSONObject.ParseJSONValue(JsA.Items[0].ToString) as TJSONObject; frm_main.Memo1.text := JSO.GetValue('id').value; end; html загружается сам JSON ответ по GET запросу JSO: TJSONObject; JsA: TJSONArray; в данной строке ошибка JsA := TJSONObject.ParseJSONValue(JSO.GetValue('pipelines').ToString) as TJSONArray; не соответствие типов в JSON работаю впервые потому понимаю что ошибка может быть детская . если накидаете ссылки на хорошую литературу по тому как работать с JSON тоже буду благодарен
  6. это я в первую очередь провериял и читал не помогает
  7. вообщем так и е могу побороть эту ошибку уже не знаю куда и лезти на стену уже получается [PAClient Error] Error: E0776 Unable to execute '"/usr/bin/xcrun" -sdk iphoneos PackageApplication -v "/Users/malysev/PAServer/scratch-dir/asuspc-macos/cds43.app" -o "/Users/malysev/PAServer/scratch-dir/asuspc-macos/cds43.ipa" -sign "iPhone Distribution: Alex Mal (RZ2A37LHF9)" --embed "/Users/malysev/Library/MobileDevice/Provisioning Profiles/56af604e-ea4c-40e3-883c-13e96d1cdbde.mobileprovision"' (Error 1) [PAClient Error] Error: E0776 error: Failed to read entitlements from '/var/folders/xc/xlxx9sy522x6l9jk8cc6fdbc0000gp/T/y7YXgD8vJq/Payload/cds43.app'
  8. вообщем у меня так и выскакивает сия ошибка [PAClient Error] Error: E0776 Unable to execute '"/usr/bin/xcrun" -sdk iphoneos PackageApplication -v "/Users/malysev/PAServer/scratch-dir/asuspc-macos/cdska.app" -o "/Users/malysev/PAServer/scratch-dir/asuspc-macos/cdska.ipa" -sign "iPhone Distribution: Alex Mal (RZ2A37LHF9)" --embed "/Users/malysev/Library/MobileDevice/Provisioning Profiles/71b9cf89-2393-4780-be83-0321333c120c.mobileprovision"' (Error 1) [PAClient Error] Error: E0776 error: Failed to read entitlements from '/var/folders/xc/xlxx9sy522x6l9jk8cc6fdbc0000gp/T/sqBEJV1Ylw/Payload/cdska.app' может что в настройках PAClient забыл прописать , я его просто устанавливал и перед компиляцией просто запускаю задав пароль
  9. [PAClient Error] Error: E0776 error: Failed to read entitlements from '/var/folders/xc/xlxx9sy522x6l9jk8cc6fdbc0000gp/T/txSUCZNCfl/Payload/cdska.app' в принципе ошибка повторилась
  10. я сменил на релиз настроил его и после стало выдавать такую ошибку
  11. [Error Error] Missing provisioning information. Distribution certificate has not been specified for the "Debug" platform configuration.
  12. возникает когда проверяется Deployment [PAClient Error] Error: E0776 error: Failed to read entitlements from '/var/folders/xc/xlxx9sy522x6l9jk8cc6fdbc0000gp/T/lkHCD48ukN/Payload/cdska.app'
  13. ну я создавал cdska.mobileprovision и он у меня есть но почему по такому пути .... я не задавал это тут где его поменять то можно и название файла кстати тоже