Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 1 736

Раздел: Delphi » Прочее
/ вопрос открыт /

Приветствую, уважаемые эксперты!
Создал IW приложение
Оно орабатыват запрос и экспортирует его в csv формат.
После чего дает образованный файл на закачку. После закачки элементы управления расположенные на страныце не реягируют не на веделение текста, не на шелки мыщью(замараживается).
Размораживается только после обновления страныцы
Написал на D2007 c использованием SSL

Приложение:
  1. procedure TIWForm1.downloadExecute(Sender: TObject);
  2. var i, j : integer;
  3. FPath,rand, ex:string;
  4. temp:TextFile;
  5. begin
  6. FPath := WebApplication.ApplicationPath + 'temp';
  7. for j := 0 to usersession.SQLd.FieldCount-1 do
  8. ex:=ex+usersession.SQLd.fields[j].FieldName+';';
  9. ex:=ex+chr(13);
  10. usersession.sqld.first;
  11. while not usersession.sqld.Eof do begin
  12. for j := 0 to usersession.sqld.FieldCount-1 do
  13. ex:=ex+usersession.sqld.fields[j].AsString+';';
  14. usersession.sqld.NEXT;
  15. ex:=ex+chr(13);
  16. end;
  17. rand:=usersession.username+'_'+inttostr(random(9000))+'.csv';
  18. Rewrite(temp,fpath+rand);
  19. write(temp,ex);
  20. close(temp);
  21. WebApplication.SendFile(fpath+rand);
  22. end;


Раджабов Амин Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: Раджабов Амин (статус: Посетитель)
Вопрос отправлен: 28 июня 2008, 11:54
Состояние вопроса: открыт, ответов: 0.


Мини-форум вопроса

Всего сообщений: 1; последнее сообщение — 28 июня 2008, 13:22; участников в обсуждении: 1.
Раджабов Амин

Раджабов Амин (статус: Посетитель), 28 июня 2008, 13:22 [#1]:

Небольщое но важное ис правление
22 WebApplication.SendFile(fpath+rand, true,'','');

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 22 октября 2017, 23:49
Выполнено за 0.03 сек.
Рейтинг@Mail.ru