Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi (до версии 2009) - часть 6

Модерирует : ShIvADeSt

 Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125

Открыть новую тему     Написать ответ в эту тему

ShIvADeSt



Moderator
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Продолжение темы Вопросы по Delphi (до версии 2009) - часть 5

Познаем сами, помогаем другим...
Обсуждаем вопросы, не связанные с юникоидными версиями Delphi - для этого есть соответствующая тема (см. ссылки ниже).


 
Правила топика:
    Прежде чем спрашивать:
  1. Желательно изучить вопрос, попытаться найти ответ в прилагаемых мануалах, хелпах и анализируя исходники.
  2. Выполнить поиск по топику (открыть "Версия для печати" и поискать ответ там).
  3. Применить фильтр по разделу "Прикладное программирование". Ответы на многие старые вопросы могли быть даны в отдельных темах.
  4. Продумайте вопрос. На поверхностные вопросы вы получите поверхностные ответы, или вообще ответов не получите.
  5. Желательно указывать версии используемого компилятора и операционной системы.
    Прежде чем отвечать:
  1. Если не можете помочь, не мешайте.
  2. Если уж вы отвечаете на вопрос, давайте ответ по сути.
  3. Если вы не уверены, так и говорите! Ошибочный, но авторитетно звучащий ответ хуже, чем отсутствие ответа.
  4. Задавайте дополнительные вопросы, чтобы получить больше информации.
  • Отсутствие ответа не равносильно игнорированию - иногда участники форума просто не знают ответ. Повторная посылка вопроса не приветствуется. Посты типа "неужели никто не знает ответа..." или "может мне все-таки кто-нибудь ответит" недопустимы.  
  • Все большие куски кода (более 5 строк) оформляем в тег [morе] дабы уменьшить размер поста. FAQ по тегу [morе].


    Некоторые "родственные" топики:
     
  • Вопросы по Delphi (версии 2009-2010 Weaver)
  • Вопросы по компонентам для Delphi, C++ Builder
  • Использование DevExpress
  • Вопросы по Ehlib
  • Компоненты и утилиты для Delphi/BCB/FreePascal/Lazarus - только Open Source
  • Коммерческие компоненты и утилиты для Delphi/BCB
  • кабак программистов :)
     
    См. также: Некоторые полезные ресурсы о Delphi
     
    И старайтесь, чтобы ваш код не попал сюда :)

  • Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 05:13 19-05-2010 | Исправлено: akaGM, 02:33 15-07-2020
    Frodo_Torbins

    Silver Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    GRom V
    Встроить в свою прогу тоже можно. Погуглите на Windows Scripting Host, вроде должен быть компонент для делфи.

    Всего записей: 2318 | Зарегистр. 24-05-2007 | Отправлено: 15:22 29-11-2010 | Исправлено: Frodo_Torbins, 15:23 29-11-2010
    GRom V

    Full Member
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    tanaseduard

    Цитата:
    Что имеется в виду?  
    Как прописать сценарий?

    Имелось ввиду код написанный на vbs исполнить в делфи....видимо никак.

    Всего записей: 466 | Зарегистр. 31-10-2006 | Отправлено: 15:27 29-11-2010
    tanaseduard



    Full Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    GRom V
    Хм... Не сталкивался с такой задачей.
    Может лучше прикрепить библиотеку интерпретатора?

    Всего записей: 518 | Зарегистр. 21-11-2009 | Отправлено: 15:42 29-11-2010
    Frodo_Torbins

    Silver Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    GRom V
    Еще поддержка бейсика есть в TMS Scripter Studio и FastScript, но они платные.

    Всего записей: 2318 | Зарегистр. 24-05-2007 | Отправлено: 16:06 29-11-2010
    tanaseduard



    Full Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    GRom V
    В варезнике вроде пробегали компоненты.

    Всего записей: 518 | Зарегистр. 21-11-2009 | Отправлено: 16:09 29-11-2010
    GRom V

    Full Member
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    Всем огромное спасибо!
    еще вопросик...
    нашел это (код ниже), так  вот, если соединения с модемом нет, то выскакивает ошибка.
    Можно ли это избежать, тоесть чтоб никаких ошибок не выскакивало?
     
    procedure TForm1.Button1Click(Sender: TObject);
    var
    attach: TidAttachment;
    msg: tidmessage;
    i: integer;
    begin
    IdSMTP1.AuthenticationType:= atLogin;
    IdSMTP1.Username:='логин'; // ваш логин
    IdSMTP1.Password:='пароль';  // пароль
    IdSMTP1.Host:='smtp.mail.ru'; // хост mail.ru
    IdSMTP1.Port:=25; // порт mail.ru
    msg:=TIdMessage.Create(nil);
    msg.Body.Add('soobshenie pisma'); // сообщение письма
    msg.Subject:='zagolovok pisma'; // заголовок письма (Тема)
    msg.From.Address:='user@mail.ru'; // от кого отправляем письмо
    msg.From.Name:='imya otpravitelya'; // имя отправителя
    msg.Recipients.EMailAddresses:='user2@mail.ru'; // кому отправить письмо
    msg.IsEncoded:=true;
    IdSMTP1.Connect(6000);
    if IdSMTP1.Connected then
    begin
    IdSMTP1.Send(msg);
    end
    else
    IdSMTP1.Disconnect;
    end;
     
    end.

    Всего записей: 466 | Зарегистр. 31-10-2006 | Отправлено: 03:47 30-11-2010
    tanaseduard



    Full Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    GRom V
    Try
     //Код
    Except
     On E:Exception do
       begin
       end;
    End;

    Всего записей: 518 | Зарегистр. 21-11-2009 | Отправлено: 09:25 30-11-2010
    Man_Without_Face



    Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Доброго времени суток. Подскажите самый быстрый и простой способ импорта из экселя (записать нужно через record в Tlist). Если можно пример или ссылку. Спасибо.

    Всего записей: 381 | Зарегистр. 25-01-2010 | Отправлено: 13:19 30-11-2010
    mcdie



    Junior Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Man_Without_Face
    Подробнее...

    Всего записей: 145 | Зарегистр. 03-05-2006 | Отправлено: 14:29 30-11-2010
    GRom V

    Full Member
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    tanaseduard

    Цитата:
    Try  
     //Код  
    Except  
     On E:Exception do  
       begin  
       end;  
    End;

    СеНкЮ! работает...

    Всего записей: 466 | Зарегистр. 31-10-2006 | Отправлено: 14:52 30-11-2010
    tanaseduard



    Full Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    GRom V
    np

    Всего записей: 518 | Зарегистр. 21-11-2009 | Отправлено: 14:57 30-11-2010
    mcdie



    Junior Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    GRom V Или так:
    Код:
     
    procedure TForm1.Button1Click(Sender: TObject);  
    var  
    attach: TidAttachment;  
    msg: tidmessage;  
    i: integer;  
    begin  
      IdSMTP1.AuthenticationType:= atLogin;  
      IdSMTP1.Username:='логин'; // ваш логин  
      IdSMTP1.Password:='пароль';  // пароль  
      IdSMTP1.Host:='smtp.mail.ru'; // хост mail.ru  
      IdSMTP1.Port:=25; // порт mail.ru  
      msg:=TIdMessage.Create(nil);  
      try
        msg.Body.Add('soobshenie pisma'); // сообщение письма  
        msg.Subject:='zagolovok pisma'; // заголовок письма (Тема)  
        msg.From.Address:='user@mail.ru'; // от кого отправляем письмо  
        msg.From.Name:='imya otpravitelya'; // имя отправителя  
        msg.Recipients.EMailAddresses:='user2@mail.ru'; // кому отправить письмо  
        msg.IsEncoded:=true;  
        try
          try
            IdSMTP1.Connect(6000);  
            if IdSMTP1.Connected then  
            begin  
              IdSMTP1.Send(msg);  
            end;  
          Except
            On E:Exception do  
            begin  
    //         MessageDlg('Ошибка: ' + E.message, mtInformation, [mbOK], 0);
            end;
          end;  
        finally
          IdSMTP1.Disconnect;  
        end;
      finally
        msg.free;
      end;
    end;  

    Всего записей: 145 | Зарегистр. 03-05-2006 | Отправлено: 15:14 30-11-2010 | Исправлено: mcdie, 15:15 30-11-2010
    YuriyRR



    Full Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Man_Without_Face

    Цитата:
    быстрый и простой способ импорта из экселя

    без OLE можно использовать компоненты TXLSRedsWriteII TXLSFile

    Всего записей: 516 | Зарегистр. 07-06-2007 | Отправлено: 23:52 30-11-2010
    GRom V

    Full Member
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    mcdie
    тож зашибись! Спасибо!

    Всего записей: 466 | Зарегистр. 31-10-2006 | Отправлено: 03:00 01-12-2010
    Maks150988



    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Привет. Тема значит вот http://rsdn.ru/forum/winapi/4060479.1.aspx и там главное 5 и 6 сообщение, меня заинтересовало удаление массива без утечки памяти, правильно ли я освобождаю указатели на строки через SetLength? У сишников оператор delete, а у нас?

    Всего записей: 836 | Зарегистр. 23-12-2006 | Отправлено: 07:09 02-12-2010 | Исправлено: Maks150988, 07:13 02-12-2010
    ShIvADeSt



    Moderator
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Maks150988
    Для динамических массивов SetLength(..,0) - освобождает память (согласно хелпа). Насчет семерки - попробуй перед получением данных вначале опросить сколько айтемов в комбобоксе. Возможно семерка при WM_CLOSE вначале уничтожает контролы.

    ----------
    И создал Бог женщину... Существо получилось злобное, но забавное...

    Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 07:34 02-12-2010
    dred2k



    Full Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    ShIvADeSt, при WM_CLOSE ничего уничтожаться не может. Обычное событие - закрытие окна. Уничтожается в дестрое. И семерка (версия) тут абсолютно не при чем.

    Всего записей: 403 | Зарегистр. 15-02-2006 | Отправлено: 15:05 03-12-2010
    ShIvADeSt



    Moderator
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    dred2k

    Цитата:
    при WM_CLOSE ничего уничтожаться не может. Обычное событие - закрытие окна. Уничтожается в дестрое. И семерка (версия) тут абсолютно не при чем.  

    Знаю тогда только через дебаггер смотреть что нам возвращается.

    ----------
    И создал Бог женщину... Существо получилось злобное, но забавное...

    Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 04:36 06-12-2010
    Man_Without_Face



    Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Доброго времени суток. Есть OpenDialog с таким вот фильтром:
    frmMain.OpenDialog1.Filter := 'Файлы отчетов KX|KX??????.*' +
            '|Все файлы|*.*';
    Можно ли сделать чтобы  длина названия файла была и 8 и 9 знаков одновременно (например так OX3561012.001 и так OХ451008.029). Спасибо.
     
    Добавлено:
    Вопрос решил так:
    rmMain.OpenDialog1.Filter := 'Файлы отчетов KX|KX*.*' +
            '|Все файлы|*.*';

    Всего записей: 381 | Зарегистр. 25-01-2010 | Отправлено: 13:58 06-12-2010
    tanaseduard



    Full Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Man_Without_Face
    KX*.*
    или  
    KX?????????.*
     
    Хотя по поводу последнего не помню или отработает маска, надо проверить.

    Всего записей: 518 | Зарегистр. 21-11-2009 | Отправлено: 15:16 06-12-2010
    Открыть новую тему     Написать ответ в эту тему

    Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125

    Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi (до версии 2009) - часть 6


    Реклама на форуме Ru.Board.

    Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
    Modified by Ru.B0ard
    © Ru.B0ard 2000-2024

    BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

    Рейтинг.ru