Q&A
- [Q] 다시 질문 드립니다.
화랑님과 까마귀님의 정성스러운 답변을 메일로 잘 받았습니다.
정말 감사드립니다. (<- 차후에 소주라도 제가 대접해 드릴께요. 가능할까?)
제가 초보라 이해하기가 조금 힘든데요. 제 사황을 다시 한번
설명 드립니다.
저는요 지금 델파이로 CGI프로그램을 공부중인데요?
TClientDataset을 사용하려고 합니다. 먼저 Ttable에서 추출한것을
.cds 파일로 만들고 이것을 웹상에서 제어하려고 하니 explorer에서 다음과 같은
에러가 발생하였습니다.
> Internal Server Error 500
>
> --------------------------------------------------------------------------------
> Exception: EOleSysError
> Message: CoInitialize를 호출하지 않았습니다
제소스는 이러합니다.
interface
uses
Windows, Messages, SysUtils, Classes, HTTPApp, Db, DBClient, DBWeb;
type
TWebModule1 = class(TWebModule)
cdsCounter: TClientDataSet;
procedure WebModule1waiCounterAction(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;
var
WebModule1: TWebModule1;
implementation
{$R *.DFM}
procedure TWebModule1.WebModule1waiCounterAction(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
Total: double;
begin
cdsCounter.LoadFromFile('./counter.cds');
cdsCounter.Active:= true;
if cdsCounter.fieldbyname('Total').asstring = '' then begin
Total:= 0;
end else begin
Total:= cdsCounter.fieldbyname('Total').asfloat;
end;
Total:= Total + 1;
cdsCounter.edit;
cdsCounter.fieldbyname('Total').asfloat:= Total;
cdsCounter.post;
cdsCounter.savetofile('./counter.cds');
cdsCounter.Active:= false;
if cdscounter.active then begin
Response.content:= 'Test
Test
end;
end;
위 와 같습니다. 저는 PWS 4.0(맞나?)을 사용하구요. Win98 Second Editon을
사용중입니다. 델파이 4.0을 사용하구요.
아시는문 답좀 주세요...
위의 파일에는 dbclient.dll이 같은 폴더에 포함되어 있습니다.
love7579love@yahoo.co.kr
정말 감사드립니다. (<- 차후에 소주라도 제가 대접해 드릴께요. 가능할까?)
제가 초보라 이해하기가 조금 힘든데요. 제 사황을 다시 한번
설명 드립니다.
저는요 지금 델파이로 CGI프로그램을 공부중인데요?
TClientDataset을 사용하려고 합니다. 먼저 Ttable에서 추출한것을
.cds 파일로 만들고 이것을 웹상에서 제어하려고 하니 explorer에서 다음과 같은
에러가 발생하였습니다.
> Internal Server Error 500
>
> --------------------------------------------------------------------------------
> Exception: EOleSysError
> Message: CoInitialize를 호출하지 않았습니다
제소스는 이러합니다.
interface
uses
Windows, Messages, SysUtils, Classes, HTTPApp, Db, DBClient, DBWeb;
type
TWebModule1 = class(TWebModule)
cdsCounter: TClientDataSet;
procedure WebModule1waiCounterAction(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;
var
WebModule1: TWebModule1;
implementation
{$R *.DFM}
procedure TWebModule1.WebModule1waiCounterAction(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
Total: double;
begin
cdsCounter.LoadFromFile('./counter.cds');
cdsCounter.Active:= true;
if cdsCounter.fieldbyname('Total').asstring = '' then begin
Total:= 0;
end else begin
Total:= cdsCounter.fieldbyname('Total').asfloat;
end;
Total:= Total + 1;
cdsCounter.edit;
cdsCounter.fieldbyname('Total').asfloat:= Total;
cdsCounter.post;
cdsCounter.savetofile('./counter.cds');
cdsCounter.Active:= false;
if cdscounter.active then begin
Response.content:= '
Active True/html>';
end else begin
Response.content:= '
Active False
';end;
end;
위 와 같습니다. 저는 PWS 4.0(맞나?)을 사용하구요. Win98 Second Editon을
사용중입니다. 델파이 4.0을 사용하구요.
아시는문 답좀 주세요...
위의 파일에는 dbclient.dll이 같은 폴더에 포함되어 있습니다.
love7579love@yahoo.co.kr
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 김일영
- •
- 2000.04.06 00:39
- 6 COMMENTS
- /
- 0 LIKES
-
최용일•2000.04.06 10:23 -
김일영•2000.04.06 18:54
-
최용일•2000.04.06 19:44
-
김일영•2000.04.06 21:23
-
최용일•2000.04.06 22:25
-
조규춘•2000.04.06 23:09
-
- 왕초보
- •
- 2000.04.05 23:33
- 1 COMMENTS
- /
- 0 LIKES
-
화랑•2000.04.07 19:21왕초보 wrote: > > ISAPI 와 ASP 를 같이 쓸수 있다는데.... > > 책에 있는 내용을 따라하니까.. 에...
-
- 이수정
- •
- 2000.04.05 21:27
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2000.04.06 10:13안녕하세요. 최용일입니다. 이수정님께서 컴포넌트 등록에 대해서 잘못알고 계신것 같은데요 컴포넌...
-
- mad
- •
- 2000.04.05 11:24
- 3 COMMENTS
- /
- 0 LIKES
-
장은석•2000.04.05 12:44procedure TForm4.Button1Click(Sender: TObject); var stoptime : tdatetime; //bun : string; begi...
-
mad•2000.04.07 11:50아 글씨 안된다니깐요. else 다음에 end넣고 Atime으로 바꾸어도 계속 Atime에만 쌓여가요. 혹시 DBGrid...
-
장은석•2000.04.08 03:49방금 이메일 확인 했습니다.. 컴파일도 안해보고 제가 눈으로 답변을 드렸군요... 죄송.. 님의 소스를 아...
-
- 정용진
- •
- •
- 2000.04.05 10:36
- 1 COMMENTS
- /
- 1 LIKES
화랑님과 까마귀님의 정성스러운 답변을 메일로 잘 받았습니다. 정말 감사드립니다. ( Internal Server Error 500 > > -------------------------------------------------------------------------------- > Exception: EOleSysError > M...-
최용일•2000.04.05 19:50안녕하세요. 최용일입니다. COM 라이브러리를 초기화시키지 않으신 것 같은데, CoInitialize를 써서 ...
-
- 이수정
- •
- 2000.04.05 10:34
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2000.04.05 11:11안녕하세요. 최용일입니다. 일반 사용자들이 컴포넌트를 구입하는 경우는 별로 없다고 생각합니다. ...
-
- 조운영
- •
- 2000.04.05 10:19
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2000.04.05 11:13안녕하세요. 최용일입니다. 델파이 강의실이나 팁모아에 가시면 분석하는 법과 간단히 사용하는 법이 ...
-
- 초보자
- •
- 2000.04.05 09:36
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2000.04.05 09:45안녕하세요. 최용일입니다. FloatToInt란 함수는 없는데요... Round나 Trunc함수를 써보세요... func...
-
- 김종근
- •
- 2000.04.05 06:19
- 1 COMMENTS
- /
- 0 LIKES
-
이경문•2000.04.19 16:44이수정 wrote: > 미디어를 이용해서 해 보았는데, 파일 오픈해서 열기및 재생은 잘 되는데.. > > 녹음...
-
- 김도환
- •
- 2000.04.05 06:00
- 1 COMMENTS
- /
- 0 LIKES
-
구창민•2000.04.05 06:05김도환 wrote: > 번튼을 눌렸을 경우 에디트 박스에 글자가 들어가게하려고하는데 어떡해해야할지 모르겠...
-
- 김도환
- 2000.04.05 05:56
- 0 COMMENTS
- /
- 0 LIKES
-
- chobo
- •
- 2000.04.05 04:32
- 1 COMMENTS
- /
- 0 LIKES
-
류종택•2000.04.05 04:40아래와 같이 하세요.. Real이 바로 C에서 말하는 Float 타입입니다.. 만약 소숫점 자리를 무시하시려면.....
-
-
류종택•2000.04.05 04:44Delphi 1.0 때 필요해서 만든 유닛인데.. 소스가 지저분해서.. 올리기는 싫으나.. 도움이 되시길 바랍니...
-
-
-
- 정형모
- •
- 2000.04.05 03:36
- 1 COMMENTS
- /
- 0 LIKES
-
장은석•2000.04.06 00:43정형모 wrote: > 모두들 수고가 많으십니다. > > DBGridDrawColumnCell 에서 String값을 갖는 Cell은 ...
-
- 어린왕자
- •
- 2000.04.05 03:30
- 1 COMMENTS
- /
- 0 LIKES
-
조규춘•2000.04.05 03:38어린왕자 wrote: > 델초보 어린왕자덴요.. > 마우스가 눌려진 상태에서 응용프로그램의 영역을 못빠져나...
-
- shchung
- •
- 2000.04.05 03:27
- 1 COMMENTS
- /
- 0 LIKES
-
소지영•2000.04.05 03:43안녕하세요. 소지영 입니다. 트레이 아이콘 컴포넌트가 많이 있어서 사람들이 그냥 설명 했나 보네요. ...
-
- 이수정
- •
- 2000.04.05 03:14
- 1 COMMENTS
- /
- 0 LIKES
-
소지영•2000.04.05 03:40안녕하세요. 소지영 입니다. 그냥 실행하면 당근, Disable처럼 되어 있습니다. 먼저 속성중 MediaPla...
-
- 궁금이
- •
- 2000.04.05 02:46
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2000.04.05 06:57안녕하세요. 최용일입니다. C++과 델파이의 클래스는 그 구현 방식및 이진 포맷자체가 다름니다. 당...
-
- 송정환
- •
- 2000.04.05 02:21
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2000.04.05 02:39uses절에 ShellAPI를 추가시키세요. 송정환 wrote: > findExecutable을 인식을 못해서 Undefined ident...
COM 라이브러리를 초기화시키지 않으신 것 같은데, CoInitialize를 써서
COM 라이브러리를 초기화 시켜주세요.
^^
정용진 wrote:
> 화랑님과 까마귀님의 정성스러운 답변을 메일로 잘 받았습니다.
>
> 정말 감사드립니다. (<- 차후에 소주라도 제가 대접해 드릴께요. 가능할까?)
>
> 제가 초보라 이해하기가 조금 힘든데요. 제 사황을 다시 한번
>
> 설명 드립니다.
>
> 저는요 지금 델파이로 CGI프로그램을 공부중인데요?
>
> TClientDataset을 사용하려고 합니다. 먼저 Ttable에서 추출한것을
>
> .cds 파일로 만들고 이것을 웹상에서 제어하려고 하니 explorer에서 다음과 같은
>
> 에러가 발생하였습니다.
>
> > Internal Server Error 500
> >
> > --------------------------------------------------------------------------------
> > Exception: EOleSysError
> > Message: CoInitialize를 호출하지 않았습니다
>
>
> 제소스는 이러합니다.
>
> interface
>
> uses
> Windows, Messages, SysUtils, Classes, HTTPApp, Db, DBClient, DBWeb;
>
> type
> TWebModule1 = class(TWebModule)
> cdsCounter: TClientDataSet;
> procedure WebModule1waiCounterAction(Sender: TObject;
> Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
> private
> { Private declarations }
> public
> { Public declarations }
> end;
>
> var
> WebModule1: TWebModule1;
>
> implementation
>
> {$R *.DFM}
>
> procedure TWebModule1.WebModule1waiCounterAction(Sender: TObject;
> Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
> var
> Total: double;
> begin
>
> cdsCounter.LoadFromFile('./counter.cds');
> cdsCounter.Active:= true;
>
> if cdsCounter.fieldbyname('Total').asstring = '' then begin
> Total:= 0;
> end else begin
> Total:= cdsCounter.fieldbyname('Total').asfloat;
> end;
> Total:= Total + 1;
>
> cdsCounter.edit;
> cdsCounter.fieldbyname('Total').asfloat:= Total;
> cdsCounter.post;
>
> cdsCounter.savetofile('./counter.cds');
> cdsCounter.Active:= false;
>
> if cdscounter.active then begin
> Response.content:= '
>
Active True/html>';
> end else begin
> Response.content:= '
>
Active False
';> end;
>
> end;
>
> 위 와 같습니다. 저는 PWS 4.0(맞나?)을 사용하구요. Win98 Second Editon을
>
> 사용중입니다. 델파이 4.0을 사용하구요.
>
> 아시는문 답좀 주세요...
>
> 위의 파일에는 dbclient.dll이 같은 폴더에 포함되어 있습니다.
>
> love7579love@yahoo.co.kr
>