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

Новости • Файловые архивы
Поиск • Активные темы • Топ лист
Правила • Кто в 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
    finnk

    Newbie    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Всем привет, дали такое задание:
    задание
    Помогите люди добрые кто чем может)))Проблема собственно в том, что само задание понять не могу, посмотрел в википедии определение изограф, к моей задаче эт точно никакого отношения не имеет.С графами менного понятней, но все же, может у кого алгоритм сохранился или инфа какая.Реализовать алгоритм сложности не составит, мне бы его тока составить))Заранее спасибо.
    Всего записей: 6 | Зарегистр. 13-10-2010 | Отправлено: 08:47 16-11-2010
    SIgor33

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

    Цитата:
    Подробнее..

    Ваш вариант проходит только для обычных курсоров я о нем знаю. А для аннимированых не подходит. я зная как сделать с временным файлом, Просто не хочется лишний раз плодить всякие темпы
    Всего записей: 652 | Зарегистр. 03-03-2009 | Отправлено: 09:17 16-11-2010
    mcdie



    Junior Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    SIgor33
    Есть некоторые ресурсы (типа шрифтов, анимированных курсоров), которые не могут использоваться из памяти. Мы обязательно должны сохранить эти ресурсы во временном файле на диске и загружать их оттуда.
    http://demi-s.narod.ru/resources/002.html
     
    Можно попробовать в примере, конечно, заменить сохранение в файл на TStream, но думаю что не получится.
    Всего записей: 145 | Зарегистр. 03-05-2006 | Отправлено: 10:31 16-11-2010
    Man_Without_Face



    Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Подскажите как записать record'ы в файл (может у кого-нибудь есть наглядный пример):
    Есть заголовок файла:
    THeader = record
       cTransForm: char;
       wFormVersion: WORD;
       bAlgCRC: BYTE;
       dwCreateEmit: DWORD;
    .......................................
    end;
     
    И сами записи:
    TRecords = record
      wRecId: WORD;  
      dwDocDate:  DATETIME;
      bReservoir: BYTE;
    .......................................                      
    end;
    Всего записей: 381 | Зарегистр. 25-01-2010 | Отправлено: 17:06 17-11-2010
    Frodo_Torbins

    Silver Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Man_Without_Face
    Рекорды должны быть упакованы, то есть packed, иначе разные версии вашей проги скомпилированные с разными настройками не смогут найти общий язык. Ну а далее либо типизированные файлы, либо TStream.Read/Write.
    И еще Char на AnsiChar замените.
    Всего записей: 2319 | Зарегистр. 24-05-2007 | Отправлено: 17:47 17-11-2010 | Исправлено: Frodo_Torbins, 17:49 17-11-2010
    akaGM

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

    Цитата:
    Есть заголовок файла:

    и что?
     
    рекорды можно писать по кр. мере тремя способами:
    1. отдельно каждое поле каждого рекорда writeln'ом в текстовый файл
    f: Text;
    r: TRecords;
    ...
    assign(f, 'filename.ext');
    rewrite(f);
    with r do begin
      writeln(f,  wRecId);
      writeln(f,  dwDocDate);
      writeln(f,  bReservoir);
    ...
    end;
    close(f);
    ...
     
    2. в "файл записей"
    f: File of TRecords;
    r: TRecords;
    ...
    assign(f, 'filename.ext');
    rewrite(f);
    write(f, r)
    close(f);
    ...
     
    3. в "нетипизированный файл"
    f: file;
    h: THeader;
    r: TRecords;
    ...
    assign(f, 'filename.ext');
    rewrite(f, 1);
    blockwrite(f, h, sizeof(h)); // header
    blockwrite(f, r, sizeof(r)); // record
    close(f);
    ...
     
    слабо в учебнике посмотреть?
    Всего записей: 24201 | Зарегистр. 06-12-2002 | Отправлено: 17:48 17-11-2010 | Исправлено: akaGM, 18:11 17-11-2010
    Man_Without_Face



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

    Цитата:
    разные версии вашей проги

    Загружать файл будет вообще другая прога...

    Цитата:
    типизированные файлы

    А можно наглядный пример...

    Цитата:
    либо TStream.Read/Write.

    Access violation вызывает следующий код:
    var AStream: TMemoryStream;
          Header: tHeader;
    ................................................
      Header.wFormVersion := 2;
      AStream.Write(Header, SizeOf(THeader));
      AStream.Position := 0;
      AStream.SaveToFile('D:\SD.641');
     
    Спасибо...
     
     
     
     
     
     
    Добавлено:
    akaGM
    Спасибо, завтра попробую.

    Цитата:
    слабо в учебнике посмотреть?

    В нете нашел через stream - не работает.
    Всего записей: 381 | Зарегистр. 25-01-2010 | Отправлено: 17:53 17-11-2010
    akaGM

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

    Цитата:
    В нете нашел через stream - не работает

    в сети надо искать принципы (как и в учебнике), а не готовые решения...
    Всего записей: 24201 | Зарегистр. 06-12-2002 | Отправлено: 18:05 17-11-2010
    Frodo_Torbins

    Silver Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Man_Without_Face
    Типизированные файлы - это вариант номер 2 по классификации akaGM. Что касается вашего кода, то я в нем не вижу создания объекта AStream. Должно быть хотя бы так:

    Код:
      AStream := TMemoryStream.Create;
      try
        Header.wFormVersion := 2;
        AStream.Write(Header, SizeOf(THeader));
        AStream.Position := 0;
        AStream.SaveToFile('D:\SD.641');
      finally
        AStream.Free;
      end;
    Всего записей: 2319 | Зарегистр. 24-05-2007 | Отправлено: 18:08 17-11-2010 | Исправлено: Frodo_Torbins, 18:12 17-11-2010
    mcdie



    Junior Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Как реализовать следующий алгоритм:
    Необходимо по названию Формы.Название компоненты.Название свойства известрых нами в текстовом виде изменить это свойство на нужное значение.
    допустим:
    по сохраненному тексту 'Form1.Edit1.Text' изменить свойство Text на другое значение.

    Код:
    Procedure MyProc('Form1.Edit1.Text',Value);
    begin
    ... ??? ...
    end;
    Всего записей: 145 | Зарегистр. 03-05-2006 | Отправлено: 16:05 18-11-2010 | Исправлено: mcdie, 16:06 18-11-2010
    Frodo_Torbins

    Silver Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    mcdie
    Погуглите на RTTI. Правда в делфи до 2010-й работать можно только со свойствами в секции published.
    Всего записей: 2319 | Зарегистр. 24-05-2007 | Отправлено: 16:11 18-11-2010
    Man_Without_Face



    Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Подскажите как сделать запись в массивы типа Byte и Char из Tquery:
    BYTE     bCardNumber[19]  
    Char     cTransForm[10]
    ........................................
    TRecords = record
      bCardNumber: array[0..18] of byte;
      cTransForm: char[0..9] of char;
    end;
    ..........................................
    Такое вызывает ошибку несовместимости типов:
       for i := 1 to length(qLoyalty.FieldByName('rc_loyalty_CardNumber').Asstring) do begin
         R.bCardNumber[i - 1] := qLoyalty.FieldByName('rc_loyalty_CardNumber').Asstring;
       end;
    Что не так делаю (Delphi 2006)? Спасибо.
    Всего записей: 381 | Зарегистр. 25-01-2010 | Отправлено: 17:27 18-11-2010 | Исправлено: Man_Without_Face, 17:38 18-11-2010
    Frodo_Torbins

    Silver Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Man_Without_Face
    Видимо "qLoyalty.FieldByName('rc_loyalty_CardNumber').Asstring" у вас является строкой, а "R.bCardNumber[i - 1]" - число, вот и несовместимость. Судя по вашему коду вам надо сделать: "bCardNumber: array[0..18] of AnsiChar;". Тогда весь ваш цикл сможете заменить на простое присваивание: "R.bCardNumber := qLoyalty.FieldByName('rc_loyalty_CardNumber').Asstring;".
    Всего записей: 2319 | Зарегистр. 24-05-2007 | Отправлено: 18:05 18-11-2010
    Man_Without_Face



    Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Frodo_Torbins
    В рекорде должны быть только такие поля:
    BYTE     bCardNumber[19]  
    Char     cTransForm[10]  
    Всего записей: 381 | Зарегистр. 25-01-2010 | Отправлено: 09:04 19-11-2010
    ShIvADeSt



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

    Цитата:
    Такое вызывает ошибку несовместимости типов:

    Код:
     
       for i := 1 to length(qLoyalty.FieldByName('rc_loyalty_CardNumber').Asstring) do begin
         R.bCardNumber[i - 1] := qLoyalty.FieldByName('rc_loyalty_CardNumber').Asstring;
       end;  
     

     

    попробуй так
    R.bCardNumber[i - 1] := StrToInt(qLoyalty.FieldByName('rc_loyalty_CardNumber').Asstring[i]);
    или если будет ругаться то вначале
    s:=qLoyalty.FieldByName('rc_loyalty_CardNumber').Asstring;
    а потом
    R.bCardNumber[i - 1] := StrToInt(s[i]);
    а еще лучше вначале проверить, что qLoyalty.FieldByName('rc_loyalty_CardNumber') не null, а потом сделать s:=qLoyalty.FieldByName('rc_loyalty_CardNumber').Asstring; и работать дальше только с s.


    ----------
    И создал Бог женщину... Существо получилось злобное, но забавное...
    Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 09:34 19-11-2010
    Man_Without_Face



    Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Frodo_Torbins
    ShIvADeSt
    Спасибо, вроде что то получилось...,
    только так сделал R.bCardNumber[i - 1] := s[i];  
    Всего записей: 381 | Зарегистр. 25-01-2010 | Отправлено: 10:18 19-11-2010
    ShIvADeSt



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

    Цитата:
    только так сделал R.bCardNumber[i - 1] := s[i];  

    У меня Дельфи 5, в ней такой фокус не пройдет Поэтому использую StrToInt

    ----------
    И создал Бог женщину... Существо получилось злобное, но забавное...
    Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 11:06 19-11-2010
    Frodo_Torbins

    Silver Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Man_Without_Face
    Я так подозреваю, что вам нужна совместимость на бинарном уровне. Так вот можете посмотреть под отладчиком - будет точно тоже самое, а работать с таким типом будет проще.
    Всего записей: 2319 | Зарегистр. 24-05-2007 | Отправлено: 11:31 19-11-2010 | Исправлено: Frodo_Torbins, 11:38 19-11-2010
    MedvedevDM



    Junior Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Подскажите плиз  
    пример кода
    для отправки почтового сообщения  
    используя SMTP 25 порт  
     
    без Outlook api напрямую,
    возможно ли такое?
    Всего записей: 114 | Зарегистр. 03-11-2010 | Отправлено: 14:51 19-11-2010
    mcdie



    Junior Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    MedvedevDM
    В D5 можно попробовать использовать компоненты TNMSMTP,  
     
    в D6 и дальше компонентами Indy.
     
    можно примеры глянуть:
    http://www.delphisources.ru/pages/faq/base/send_email_using_mapi.html
    http://www.delphisources.ru/pages/faq/base/send_email.html
    http://www.delphisources.ru/pages/faq/base/send_email2.html
    Всего записей: 145 | Зарегистр. 03-05-2006 | Отправлено: 16:22 19-11-2010 | Исправлено: mcdie, 16:22 19-11-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