В таблице хранится значение текстом.
Когда я пытаюсь вывести это значение в ячейку таблицы.

То у меня весь текст превращается в строку, как сделать, чтобы воспринимались переносы строки, как в базе данных?

(читать всё…)

Передаю параметры в Post …

Авторизация уже прошла и страничка БЕЗ ПАРАМЕТРОВ загружается,
на ней есть несколько полей и кнопка [Применить фильтр]
в запросе ей соответствует поле Filter.
Поля заполняю точно так же как это вижу сниффером в момент ручного заполнения полей и нажатия кнопки [Применить фильтр]
вот часть кода:

  код delphi: 
  ...
  ADDR := 'http://' + Edit1.Text;
  mpfd := TIdMultiPartFormDataStream.Create;
  ...
  mpfd.AddFormField('ENaklDateF', '');
  mpfd.AddFormField('ZStatusList', '(все)');
  mpfd.AddFormField('Filter', 'Применить фильтр');
  ...
  stream := TMemoryStream.Create;
  ...
  idhttp1.Post(ADDR,mpfd,stream);
  ...

Сниффер показывает, что я передаю (сниффер: HTTPAnalyzer Stand-alone)

... 
mpfd.AddFormField('ENaklDateF', ''); 
mpfd.AddFormField('ZStatusList', '(???)'); 
mpfd.AddFormField('Filter', '????????? ??????'); 
...

HTTPEncode, AnsiToUtf8, UTF8Encode не помогаю.

Как бороться с этими ВОПРОСИКАМИ , есть знатоки ???

(читать всё…)

Как в кнопку установить эту ссылку, чтобы после клика он мог перейти в другой раздел в котором уже есть подобная ссылка?

(читать всё…)

Есть такая задача — сравнить два диапазона Excel.
Нужно, чтобы макрос сравнивал, именно выделенный диапазон.

(читать всё…)

Моя простая программа, которая печатает числа от 1 до n, которая введена заранее. И вот полученный результат, все вроде бы работает. А как сделать так, чтобы печатались цифры, и получалось бы два столбца? Например, я ввожу 2 и 4. А результат должен быть таким
(читать всё…)

Как открыть картинку формата PNG ?
Вообще, надо его конвертировать в JPG.

(читать всё…)

Я узнала что заголовки h1-h6 имеют смысловое значение для поисковой системы.
Можно ли, название сайта которое находится в шапке заключать в тег h1?
Спрашиваю, потому что все мнения расходятся, хотела бы узнать, как правильно.

(читать всё…)

… Где то я не догоняю — как с этим бороться , передаю параметры в Post …

Авторизация уже прошла и страничка БЕЗ ПАРАМЕТРОВ загружается,
на ней есть несколько полей и кнопка [Применить фильтр]
в запросе ей соответствует поле Filter.
Поля заполняю точно так же как это вижу сниффером в момент ручного заполнения полей и нажатия кнопки [Применить фильтр]
вот часть кода:

  код delphi: 
  ...
  ADDR := 'http://' + Edit1.Text;
  mpfd := TIdMultiPartFormDataStream.Create;
  ...
  mpfd.AddFormField('ENaklDateF', '');
  mpfd.AddFormField('ZStatusList', '(все)');
  mpfd.AddFormField('Filter', 'Применить фильтр');
  ...
  stream := TMemoryStream.Create;
  ...
  idhttp1.Post(ADDR,mpfd,stream);
  ...

Сниффер показывает, что я передаю (сниффер: HTTPAnalyzer Stand-alone)

... 
mpfd.AddFormField('ENaklDateF', ''); 
mpfd.AddFormField('ZStatusList', '(???)'); 
mpfd.AddFormField('Filter', '????????? ??????'); 
...

HTTPEncode, AnsiToUtf8, UTF8Encode не помогают

Как бороться с этими ВОПРОСИКАМИ , есть знатоки ?

… Некоторые наблюдения …
Запускаю проект и смотрю, что в итоге ушло в Post Data в соответствующей переменной
Точно так же просматриваю, что отсылает на сервер http://…/OrderList.aspx
при нажатии на кнопку [Применить фильтр]

Так вот:
если я отправляю из программы — то переменная ZStatusList = ‘(???)’,
если запрос отправить со странички ручками — то переменная ZStatusList = ‘(все)’ и остальные поля тоже с русскими буковками а не с вопросиками.
Вот такая неувязочка.
( ЗЫ: Причем если получать данные со странички простым GET сразу в MEMO будет таже проблема с ВОПРОСИКАМИ а если через ПОТОК то все ок. И еще — если скомпилировать проект не на 10 INDY а на старой что идет в комплекте с дистрибутивом Delphi 7 то все ОК — вижу русский и при приеме и при отправки. )
Естественно Post отрабатывается без параметров, как будто я просто первый раз зашел на страничку.
( там данный просто за последнюю неделю отображаются ).

Что посоветуете — сносить INDY 10 и вертать старую (хотя очень не хочется да и будут думаю те еще траблы с возвратом) или есть способ побороть проблему?

(читать всё…)

Как при скорлинге текста в Texbox, создать событие индикации прочитанного текста в ProgressBar.

Загружаю текст из файла. Затем начинаю его читать (скорлинг вниз) и в зависимости сколько текста было уже прочитано отображать в ProgressBar процесс.

(читать всё…)

Имеется RichEdit, в котором ведётся лог в уже отформатированном виде. У RichEdit’а есть свойство PlainText. Если оно стоит False, то RichEdit передаёт в файл не только голый текст, но и мета-данные. И можно уже не разбираться в особенностях тегирования RTF’а, а выгружать в файл уже отформатированный текст.
У RichEdit’а есть SaveToFile. Сохраняет в файл текст вместе со всем редактированием текста (цвет, шрифт, жирность/курсивность и т.д.). Но минус SaveToFile в том, что он всегда перезатерает файл.
Необходимо файл не перезатерать, а дополнять текстом.
Также как альтернатива есть SaveToStream.
Думал, что можно через него дозаписывать файл:

procedure asdasd;
var RTFfile: TFileStream;
begin
  RTFfile := TFileStream.Create('File.rtf', fmOpenWrite); //Открываем для записи в файл
  try
    RTFfile.Seek(0, soEnd); //Проматываем файл в конец
    RichEditLog.Lines.SaveToStream(RTFfile);
  finally
    RTFfile.Free;
  end
end;

Всё равно файл перезатерается, хотя в параметре Seek указал soEnd.
Залез в код SaveToStream, посмотреть как он работает, но ничего не понял.

Не подскажите как из RichEdit’a дозаписывать текст в имеющийся RTF-файл с форматированием в соответствии с тем, что было в RichEdit?

Delphi XE2.

(читать всё…)