munhauz
-
Постов
27 -
Зарегистрирован
-
Посещение
Сообщения, опубликованные munhauz
-
-
Доброго дня
у меня возникла такого ряда проблема
формирую текст письма состоящего из 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; // отъединяемся }
вроде все пишу верно
но явно что то не так .....
-
Все проблема решена
сам виноват
очень много года коментил и потому закоментил прикрепление непосредственно самого добавления ответа в JSO
-
Ок. спасибо, осознал проблему .теперь еще вопрос , как добраться до поля 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;
выдает ошибку
-
Доброго дня народ. Сразу к сути.
есть ответ с сервера в формате JSONСкрытый текст{ "response": { "pipelines": { "804520": { "id": 804520, "value": 804520, "label": "Звонки", "name": "Звонки", "sort": 1, "is_main": true, "statuses": { "142": { "id": 142, "name": "В работе", "color": "#CCFF66", "sort": 10000, "editable": "N", "pipeline_id": 804520 }, "143": { "id": 143, "name": "Черный список", "color": "#D5D8DB", "sort": 11000, "editable": "N", "pipeline_id": 804520 }, "16662694": { "id": 16662694, "name": "Первичный контакт", "pipeline_id": 804520, "sort": 10, "color": "#99ccff", "editable": "Y" }, "16681687": { "id": 16681687, "name": "Не интересно", "pipeline_id": 804520, "sort": 30, "color": "#ff8f92", "editable": "Y" }, "17078218": { "id": 17078218, "name": "Интересно", "pipeline_id": 804520, "sort": 20, "color": "#fff000", "editable": "Y" } }, "leads": 34 }, "804529": { "id": 804529, "value": 804529, "label": "E-mail", "name": "E-mail", "sort": 2, "is_main": false, "statuses": { "142": { "id": 142, "name": "В работе", "color": "#CCFF66", "sort": 10000, "editable": "N", "pipeline_id": 804529 }, "143": { "id": 143, "name": "Черный список", "color": "#D5D8DB", "sort": 11000, "editable": "N", "pipeline_id": 804529 }, "16662775": { "id": 16662775, "name": "Первичный контакт", "pipeline_id": 804529, "sort": 10, "color": "#99ccff", "editable": "Y" }, "17040784": { "id": 17040784, "name": "Не интересно", "pipeline_id": 804529, "sort": 30, "color": "#ff8f92", "editable": "Y" }, "17082589": { "id": 17082589, "name": "Интересно", "pipeline_id": 804529, "sort": 20, "color": "#fff000", "editable": "Y" } }, "leads": 6 }, "839881": { "id": 839881, "value": 839881, "label": "Почта", "name": "Почта", "sort": 3, "is_main": false, "statuses": { "142": { "id": 142, "name": "В работе", "color": "#CCFF66", "sort": 10000, "editable": "N", "pipeline_id": 839881 }, "143": { "id": 143, "name": "Черный список", "color": "#D5D8DB", "sort": 11000, "editable": "N", "pipeline_id": 839881 }, "17073886": { "id": 17073886, "name": "Первичный контакт", "pipeline_id": 839881, "sort": 10, "color": "#99ccff", "editable": "Y" }, "17073889": { "id": 17073889, "name": "Не интересно", "pipeline_id": 839881, "sort": 30, "color": "#ff8f92", "editable": "Y" }, "17082592": { "id": 17082592, "name": "Интересно", "pipeline_id": 839881, "sort": 20, "color": "#fff000", "editable": "Y" } }, "leads": 2 }, "839884": { "id": 839884, "value": 839884, "label": "Соц сети", "name": "Соц сети", "sort": 4, "is_main": false, "statuses": { "142": { "id": 142, "name": "В работе", "color": "#CCFF66", "sort": 10000, "editable": "N", "pipeline_id": 839884 }, "143": { "id": 143, "name": "Черный список", "color": "#D5D8DB", "sort": 11000, "editable": "N", "pipeline_id": 839884 }, "17073895": { "id": 17073895, "name": "Первичный контакт", "pipeline_id": 839884, "sort": 10, "color": "#99ccff", "editable": "Y" }, "17073898": { "id": 17073898, "name": "Не интересно", "pipeline_id": 839884, "sort": 30, "color": "#ff8f92", "editable": "Y" }, "17082595": { "id": 17082595, "name": "Интересно", "pipeline_id": 839884, "sort": 20, "color": "#fff000", "editable": "Y" } }, "leads": 0 }, "839887": { "id": 839887, "value": 839887, "label": "Другое", "name": "Другое", "sort": 5, "is_main": false, "statuses": { "142": { "id": 142, "name": "В работе", "color": "#CCFF66", "sort": 10000, "editable": "N", "pipeline_id": 839887 }, "143": { "id": 143, "name": "Черный список", "color": "#D5D8DB", "sort": 11000, "editable": "N", "pipeline_id": 839887 }, "17073904": { "id": 17073904, "name": "Первичный контакт", "pipeline_id": 839887, "sort": 10, "color": "#99ccff", "editable": "Y" }, "17073907": { "id": 17073907, "name": "Не интересно", "pipeline_id": 839887, "sort": 30, "color": "#ff8f92", "editable": "Y" }, "17082598": { "id": 17082598, "name": "Интересно", "pipeline_id": 839887, "sort": 20, "color": "#fff000", "editable": "Y" } }, "leads": 0 } }, "colors": [ "#fffeb2", "#fffd7f", "#fff000", "#ffeab2", "#ffdc7f", "#ffce5a", "#ffdbdb", "#ffc8c8", "#ff8f92", "#d6eaff", "#c1e0ff", "#98cbff", "#ebffb1", "#deff81", "#87f2c0", "#f9deff", "#f3beff", "#ccc8f9", "#eb93ff", "#f2f3f4", "#e6e8ea" ], "server_time": 1509727339 } }
таким вот форматом
мне нужно несколько данных что бы потом формировать с ними запросы
нужны 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 тоже буду благодарен
-
14 часов назад, ENRGY сказал:
это я в первую очередь провериял и читал
не помогает
-
вообщем так и е могу побороть эту ошибку
уже не знаю куда и лезти
на стену уже получается
[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' -
вообщем у меня так и выскакивает сия ошибка
[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 забыл прописать , я его просто устанавливал и перед компиляцией просто запускаю задав пароль
-
-
я сменил на релиз
настроил его
и после стало выдавать такую ошибку
-
[Error Error] Missing provisioning information. Distribution certificate has not been specified for the "Debug" platform configuration.
-
-
возникает когда проверяется Deployment
[PAClient Error] Error: E0776 error: Failed to read entitlements from '/var/folders/xc/xlxx9sy522x6l9jk8cc6fdbc0000gp/T/lkHCD48ukN/Payload/cdska.app'
-
-
ну я создавал cdska.mobileprovision и он у меня есть
но почему по такому пути .... я не задавал это тут
где его поменять то можно и название файла кстати тоже
-
-
-
а наличие мобильника или IPAD обязательно ?
-
ага, кажись немного понял ....
-
тогда еще вопрос
по аналогии с андройдом
в delphi компилируеться файл APK и после я го просто закидываю в стор
в IOS я компиляцию на эмуляторе произвел
где мне что искать
может есть какая статейка по этому поводу
-
Равиль, спасибо, это я все нашел и видел уже, у меня вопрос как с DELPHI в XCODE перенести проект?
-
Всем привет
есть пара вопросов по публикации в Itunes
все инструкции по первой публикации найденные много помогли мне сделать сертификат
и начать публикацию.
но столкнулся с проблеммой, что при загрузке сборки он просит загрузить через Xcode или ApplicationLoader
про это не где не чего не написано
ну, или я, идиота кусок, найти не могу
у кого-нибудь есть нормальня иструкция как сделать первую публикацию а апсторе. а то я начинаю тихо ненавидеть Apple
-
печаль
-
Ребят ну очень нужно! помогите! куда хоть копать? в какую сторону. не могу нати в чем загвозка
-
всем привет
столкнулся с такой проблемой
в программе стоить webbrowser в нем отображаеться скажем тот же яндекс (мой паспорт) и я хочу я там фото поменять...
и тут проблема .. при нажатии на кнопку "загрузить" не чего не происходит ... хотя в том же сафари который стоит по умолчанию все работает.
кто подскажет где искать корень проблемы. что где поменять что ьы моожно было выбирать фото ну или с камеры брать
отправка письма с прекрепленным файлом
в Решаемые задачи
Опубликовано
И так проблемма решилась
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