Q&A
- 도와주시와염..소스를 전부 올립니다..
밑질문 소스에요..
먼저.첫페이지소스
<br /><br />
웹서버 첫페이지입니다<br /><br />
웹서버 소스
unit Test;
interface
uses
Windows, Messages, SysUtils, Classes, HTTPApp;
type
TWebModule1 = class(TWebModule)
procedure WebModule1WebActionItem1Action(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;
var
WebModule1: TWebModule1;
implementation
{$R *.DFM}
procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
Response.Content :='접속성공 ';
end;
end.
웹모듈형태..
object WebModule1: TWebModule1
OldCreateOrder = False
Actions = <
item
Default = True
Name = 'WebActionItem1'
OnAction = WebModule1WebActionItem1Action
end>
Left = 192
Top = 103
Height = 640
Width = 870
end
도와주세요..첨만 실행되게 해주세요..
먼저.첫페이지소스
환영합니다..다음을 입력하세요.
웹서버 소스
unit Test;
interface
uses
Windows, Messages, SysUtils, Classes, HTTPApp;
type
TWebModule1 = class(TWebModule)
procedure WebModule1WebActionItem1Action(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;
var
WebModule1: TWebModule1;
implementation
{$R *.DFM}
procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
Response.Content :='
end;
end.
웹모듈형태..
object WebModule1: TWebModule1
OldCreateOrder = False
Actions = <
item
Default = True
Name = 'WebActionItem1'
OnAction = WebModule1WebActionItem1Action
end>
Left = 192
Top = 103
Height = 640
Width = 870
end
도와주세요..첨만 실행되게 해주세요..
2
COMMENTS
-
-
네..감사합니다..
CGI Alone하니깐 되네요..
근데 Win-cgi로 짜면 안된가요?
참고로 윈도우2000프로에서 웹서버제공된는거 깔았는데.
하늘맥 wrote:
> 님이 올린 html을 이용하니까 별이상없이 되더군요
>
>
> 웹초보 어린왕자 wrote:
> > 밑질문 소스에요..
> >
> > 먼저.첫페이지소스
> >
> >
> ><br /><br /> > 님이 한대로 하면 별 이사없이 잘되더군요..<br /><br /> > CGI STAND alone으로 했군요..<br /><br /> > 물론 win cgi~~로 하면 에러가 나지 싶습니다.<br /><br /> > win98 personal web sever로 테스트 해 보았습니다.<br /><br /> > 아마 프로그램은 이상없고..<br /><br /> > <br /><br /> > <br /><br /> > > 웹서버 첫페이지입니다<br /><br /> > >
> >
> >환영합니다..다음을 입력하세요.
> >
> >
> >
> > 웹서버 소스
> >
> > unit Test;
> >
> > interface
> >
> > uses
> > Windows, Messages, SysUtils, Classes, HTTPApp;
> >
> > type
> > TWebModule1 = class(TWebModule)
> > procedure WebModule1WebActionItem1Action(Sender: TObject;
> > Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
> > private
> > { Private declarations }
> > public
> > { Public declarations }
> > end;
> >
> > var
> > WebModule1: TWebModule1;
> >
> > implementation
> >
> > {$R *.DFM}
> >
> > procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject;
> > Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
> > begin
> > Response.Content :='접속성공 ';
> > end;
> >
> > end.
> >
> > 웹모듈형태..
> > object WebModule1: TWebModule1
> > OldCreateOrder = False
> > Actions = <
> > item
> > Default = True
> > Name = 'WebActionItem1'
> > OnAction = WebModule1WebActionItem1Action
> > end>
> > Left = 192
> > Top = 103
> > Height = 640
> > Width = 870
> > end
> >
> > 도와주세요..첨만 실행되게 해주세요..
> >
(NOTICE) You must be logged in to comment on this post.
-
- 떠돌이
- 2000.11.02 21:04
- 0 COMMENTS
- /
- 0 LIKES
-
- TIME
- 2000.11.02 20:46
- 0 COMMENTS
- /
- 0 LIKES
-
- 김성진
- 2000.11.02 20:26
- 0 COMMENTS
- /
- 0 LIKES
-
- 김진선
- 2000.11.02 20:16
- 0 COMMENTS
- /
- 0 LIKES
-
- 웹초보 어린왕자
- •
- 2000.11.02 20:16
- 2 COMMENTS
- /
- 0 LIKES
밑질문 소스에요.. 먼저.첫페이지소스 웹서버 첫페이지입니다 환영합니다..다음을 입력하세요. TableName 웹서버 소스 unit Test; interface uses Windows, Messages, SysUtils, Classes, HTTPApp; type TWebModule1 = class(TWebModule) ...-
하늘맥•2000.11.03 00:05님이 올린 html을 이용하니까 별이상없이 되더군요 웹초보 어린왕자 wrote: > 밑질문 소스에요.. > ...
-
웹초보 어린왕자•2000.11.03 00:08네..감사합니다.. CGI Alone하니깐 되네요.. 근데 Win-cgi로 짜면 안된가요? 참고로 윈도우2000프로에서...
-
- 김대식
- 2000.11.02 20:15
- 0 COMMENTS
- /
- 0 LIKES
-
- Foreversolo
- •
- 2000.11.02 20:13
- 1 COMMENTS
- /
- 0 LIKES
-
하늘맥•2000.11.03 00:12Foreversolo wrote: > 안냐세여~! 델피언 여러분들! > > 전 잠잘때마다 윈앰프를 들으면서 잡니다.. 근...
-
- won
- •
- 2000.11.02 20:06
- 1 COMMENTS
- /
- 0 LIKES
-
각시탈•2000.11.03 03:16won wrote: > 휴대폰번호 입력시, 가운데 3,4자리 모두 호환되게 할려고 그러는데요. > > !000-####-99...
-
- 웹초보 어린왕자
- 2000.11.02 19:28
- 0 COMMENTS
- /
- 0 LIKES
-
- 거북이
- 2000.11.02 19:25
- 0 COMMENTS
- /
- 0 LIKES
-
- 궁금..
- •
- 2000.11.02 19:16
- 3 COMMENTS
- /
- 0 LIKES
-
윤유섭•2000.11.02 19:45LeftCol Perperty를 이용하면 될것 같은데요. 궁금.. wrote: > StringGrid에 보면 FixedCols 라는 속...
-
궁금..•2000.11.02 23:08먼저 답변을 주셔서 정말 감사드립니다. 그런데.. LeftCol 속성만 가지고는 어느 컬럼까지가 숨겨지는지...
-
윤유섭•2000.11.03 01:33procedure TForm1.grdTopLeftChanged(Sender: TObject); begin with grd do caption := inttostr(...
-
- 오성욱
- 2000.11.02 18:52
- 0 COMMENTS
- /
- 0 LIKES
-
- 왕초보
- •
- 2000.11.02 18:23
- 1 COMMENTS
- /
- 0 LIKES
-
까마귀•2000.11.02 20:23왕초보 wrote: > 464-704경기광주군광주읍 태전리 성원아파트1차(101-108동) > 464-704경기남양주시태전...
-
- 나보다 초보는 없다.
- •
- 2000.11.02 18:20
- 2 COMMENTS
- /
- 0 LIKES
-
윤유섭•2000.11.02 19:53이 문법이 맞을려면 Temp는 Boolean형으로 선언되어있어야합니다. 그러면 Temp에는 True 아니면 False가 ...
-
나보다 초보는 없다.•2000.11.02 20:00
-
- 오승섭
- 2000.11.02 18:42
- 0 COMMENTS
- /
- 0 LIKES
-
- 해당화
- 2000.11.02 11:19
- 0 COMMENTS
- /
- 0 LIKES
-
- volf
- 2000.11.02 10:54
- 0 COMMENTS
- /
- 0 LIKES
-
- 김종수
- •
- 2000.11.02 08:33
- 1 COMMENTS
- /
- 0 LIKES
-
castle road•2000.11.02 21:54power()가 있습니다. uses 에 math를 추가 하시고요. ex) caption := floattostr(power(300,0.68)); ...
-
- 아기코알라
- •
- 2000.11.02 08:25
- 1 COMMENTS
- /
- 0 LIKES
-
hobkapa•2000.11.03 10:30아기코알라 wrote: > 안녕하세요 고수님들 > DBComboBox를 사용할려고 하는데 잘 안되서요.. > 전 DBCo...
-
- 이봉욱
- 2000.11.02 08:21
- 0 COMMENTS
- /
- 0 LIKES
웹초보 어린왕자 wrote:
> 밑질문 소스에요..
>
> 먼저.첫페이지소스
>
>
>
>
>
환영합니다..다음을 입력하세요.
>
>
>
> 웹서버 소스
>
> unit Test;
>
> interface
>
> uses
> Windows, Messages, SysUtils, Classes, HTTPApp;
>
> type
> TWebModule1 = class(TWebModule)
> procedure WebModule1WebActionItem1Action(Sender: TObject;
> Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
> private
> { Private declarations }
> public
> { Public declarations }
> end;
>
> var
> WebModule1: TWebModule1;
>
> implementation
>
> {$R *.DFM}
>
> procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject;
> Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
> begin
> Response.Content :='
> end;
>
> end.
>
> 웹모듈형태..
> object WebModule1: TWebModule1
> OldCreateOrder = False
> Actions = <
> item
> Default = True
> Name = 'WebActionItem1'
> OnAction = WebModule1WebActionItem1Action
> end>
> Left = 192
> Top = 103
> Height = 640
> Width = 870
> end
>
> 도와주세요..첨만 실행되게 해주세요..
>