Форум: "Основная";
Текущий архив: 2002.04.25;
Скачать: [xml.tar.bz2];
ВнизТекстовый Фаил Найти похожие ветки
← →
hooky-mars (2002-04-14 17:11) [17]
> Anatoly Podgoretsky
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, HTTPApp, WebModu, HTTPProd, ReqMulti,
WebAdapt, WebComp, WebUsers, WebSess, WebDisp;
type
TPageProducerPage1 = class(TWebAppPageModule)
PageProducer: TPageProducer;
WebAppComponents: TWebAppComponents;
ApplicationAdapter: TApplicationAdapter;
EndUserAdapter: TEndUserAdapter;
PageDispatcher: TPageDispatcher;
AdapterDispatcher: TAdapterDispatcher;
WebDispatcher: TWebDispatcher;
LocateFileService: TLocateFileService;
SessionsService: TSessionsService;
WebUserList: TWebUserList;
Adapter1: TAdapter;
AdapterField1: TAdapterField;
AdapterAction1: TAdapterAction;
procedure AdapterField1GetValue(Sender: TObject; var Value: Variant);
procedure WebAppPageModuleCreate(Sender: TObject);
procedure AdapterAction1Execute(Sender: TObject; Params: TStrings);
private
{ Private declarations }
FValue,FV:String;
Members : array[1..50] of TStrings;
public
{ Public declarations }
end;
function PageProducerPage1: TPageProducerPage1;
implementation
{$R *.dfm} {*.html}
uses WebReq, WebCntxt, WebFact, Variants;
function PageProducerPage1: TPageProducerPage1;
begin
Result := TPageProducerPage1(WebContext.FindModuleClass(TPageProducerPage1));
end;
procedure TPageProducerPage1.AdapterField1GetValue(Sender: TObject;
var Value: Variant);
var
F: File of TStrings;
i:integer;
StringList:Tstrings;
begin
//Value:=FValue;
AssignFile(F, "Unit12.html");
Rewrite(F);
try
StringList := TStringList.Create;
StringList.Text:="<html>"+FV+"</html>";
StringList.SaveToFile("Unit12.html");
//with StringList do begin
// Add("<html>"+FV+"</html>");
//end;
// Seek(F, 1);
//Write (F,StringList);
//for i:= 1 to Length(FValue1) do
// Write (F{,FValue1});
//except
{with Application do
begin
NormalizeTopMosts;
MessageBox("This should be on top.", "Look", MB_OK);
RestoreTopMosts;
end; }
//end;
finally
CloseFile(F);
StringList.free;
end;
end;
procedure TPageProducerPage1.WebAppPageModuleCreate(Sender: TObject);
begin
FValue:="
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.04.25;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.006 c