Delphi Programming Forum
C++Builder  |  Delphi  |  FireMonkey  |  C/C++  |  Free Pascal  |  Firebird
볼랜드포럼 BorlandForum
 경고! 게시물 작성자의 사전 허락없는 메일주소 추출행위 절대 금지
델파이 포럼
Q & A
FAQ
팁&트릭
강좌/문서
자료실
컴포넌트/라이브러리
FreePascal/Lazarus
볼랜드포럼 홈
헤드라인 뉴스
IT 뉴스
공지사항
자유게시판
해피 브레이크
공동 프로젝트
구인/구직
회원 장터
건의사항
운영진 게시판
회원 메뉴
북마크
델마당
볼랜드포럼 광고 모집

델파이 Q&A
Delphi Programming Q&A
[2946] [답변] GRUNT95/ [델파이] web에서 한개 table삭제...
grcsb [ ] 1382 읽음    1998-05-23 16:09
Web프로그램은 이미 어떻게 코딩하는 지..
아시는 것 같아서..
이렇게 소스만 올립니다..
(원래 다른 코딩을 했던 것을 고치느라 좀 어색하네여)

From 류..

---------

* 사용법의 예
  http://www.xxx.co.kr/delete.dll/delete?SN=3
  (SN필드가 3인 것을 지운다)

Function  TWebModule1.GetHTMLofDelete(Data:TStrings):String;
Var
   Query: TQuery;
   stTemp : String;
begin
  Try
    Query:= TQuery.Create(Nil);
    Query.SQL.Add('Delete From Board Where SN = ' + Data.Values['SN']);
    Query.ExecSQL;

    Result:= 'Deleted'';
  Except
    Result:= 'Delete Error'';
  End;

  Query.Free;
End;

procedure TWebModule1.WebModule1WebActionItem5Action(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
Var
  HTML : Tstrings;
begin
  HTML:= Nil;
  With Request do
    Case MethodType of
         mtPost : HTML:= ContentFields;
         mtGet  : HTML:= QueryFields;
    End;
  Response.Content:= GetHTMLofDelete(HTML);
end;


+ -

관련 글 리스트
2946 [답변] GRUNT95/ [델파이] web에서 한개 table삭제... grcsb 1382 1998/05/23
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.