Перейти к содержанию
Fire Monkey от А до Я

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; // отъединяемся }

    вроде все пишу верно 

    но явно что то не так ..... 

     

     

    Снимок.PNG

  3. Ок. спасибо, осознал проблему .теперь еще вопрос , как добраться до поля 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;

    выдает ошибку 

  4. Доброго дня народ. Сразу к сути.
    есть ответ с сервера в формате 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 тоже буду благодарен 

     

  5. вообщем так и е могу побороть эту ошибку 

    уже не знаю куда и лезти 

    на стену уже получается 

    [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'

     

  6. вообщем у меня так и выскакивает сия ошибка 

    [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 забыл прописать , я его просто устанавливал и перед компиляцией просто запускаю задав пароль 

  7. вроде нашел на что ругаеться 

    а именно чего нет 

    и отсюда вопрос 

    при добавлении сертификата он создал типа путь к библиотеке которой нет 

    откуда этот путь 

    я его не прописывал и не чего ен выбирал 

    откуда он взялся ....

    его нет и там тоже не чего нет 

    Снимок.PNG

  8. тогда еще вопрос 

    по аналогии с андройдом 

    в delphi компилируеться файл APK  и после я го просто закидываю в стор 

    в IOS я компиляцию на эмуляторе произвел 

    где мне что искать 

    может есть какая статейка по этому поводу 

  9. Всем привет 

    есть пара вопросов по публикации в Itunes 

    все инструкции по первой публикации найденные много помогли мне сделать сертификат 

    и начать публикацию.

    но столкнулся с проблеммой, что при загрузке сборки он просит загрузить через Xcode или ApplicationLoader

    про это не где не чего не написано 

    ну, или я, идиота кусок, найти не могу 

    у кого-нибудь есть нормальня иструкция как сделать первую публикацию а апсторе. а то я начинаю тихо ненавидеть Apple

  10. всем привет 

    столкнулся с такой проблемой 

    в программе стоить webbrowser в нем отображаеться скажем тот же яндекс (мой паспорт)  и я хочу я там фото поменять... 

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

    кто подскажет где искать корень проблемы. что где поменять что ьы моожно было выбирать фото ну или с камеры брать 

×
×
  • Создать...