|
Вопрос # 1 736/ вопрос открыт / |
|
Приветствую, уважаемые эксперты!
Создал IW приложение
Оно орабатыват запрос и экспортирует его в csv формат.
После чего дает образованный файл на закачку. После закачки элементы управления расположенные на страныце не реягируют не на веделение текста, не на шелки мыщью(замараживается).
Размораживается только после обновления страныцы
Написал на D2007 c использованием SSL
Приложение: Переключить в обычный режим- procedure TIWForm1.downloadExecute(Sender: TObject);
- var i, j : integer;
- FPath,rand, ex:string;
- temp:TextFile;
- begin
- FPath := WebApplication.ApplicationPath + 'temp';
- for j := 0 to usersession.SQLd.FieldCount-1 do
- ex:=ex+usersession.SQLd.fields[j].FieldName+';';
- ex:=ex+chr(13);
- usersession.sqld.first;
- while not usersession.sqld.Eof do begin
- for j := 0 to usersession.sqld.FieldCount-1 do
- ex:=ex+usersession.sqld.fields[j].AsString+';';
- usersession.sqld.NEXT;
- ex:=ex+chr(13);
- end;
- rand:=usersession.username+'_'+inttostr(random(9000))+'.csv';
- Rewrite(temp,fpath+rand);
- write(temp,ex);
- close(temp);
- WebApplication.SendFile(fpath+rand);
- end;
 |
Вопрос задал: Р.А. (статус: Посетитель)
Вопрос отправлен: 28 июня 2008, 11:54
Состояние вопроса: открыт, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 1; последнее сообщение — 28 июня 2008, 13:22; участников в обсуждении: 1.
|
|
Р.А. (статус: Посетитель), 28 июня 2008, 13:22 [#1]:
Небольщое но важное ис правление
22 WebApplication.SendFile(fpath+rand, true,'','');
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
