지금 html 메모form 에서 내용을 content에 담아서

server에 보내는데

다름 것은 다내용이 들어가는데. 메모부분만 안들어 갑니다.

소스부분입니다.

begin

NoError:=True;

BBS:=Request.ContentFields.Values['bbs'];

Created:=DateToStr(Date);

WriteType:=Request.ContentFields.Values['writetype'];

Title:=Request.ContentFields.Values['title'];

Writer:=Request.ContentFields.Values['writer'];

Content:=Request.ContentFields.Values['content'];

Subject:=Request.ContentFields.Values['subject'];

이렇게 내용을 받아서





DataBaseName:='bbs';

SQL.Clear;

SQL.Add('insert into FREEBBS');

sql.add('values (:bbs,:bbsno,:subno,:created,:writetype,:writer,:title,:subject,:content,:viewcount ,:password)');

Prepare;

ParamByName('bbs').AsString:=BBS;

ParamByName('bbsno').AsInteger:=bbsNo;

ParamByName('subno').AsInteger:=subNo;

ParamByName('created').AsString:=Created;

ParamByName('writetype').AsString:=WriteType;

ParamByName('writer').AsString:=Writer;

ParamByName('title').AsString:=Title;

ParamByName('subject').AsString:=Subject;

ParamByName('content').AsMemo:=Content;

ParamByName('password').AsString:='';

ParamByName('viewcount').AsInteger:=ViewCount;

ExecSQL;



참고로 db는 paradoxfor window를 쓰고요

content라는 필드는 타입이 memo거든요

그래서 asmemo라고 하면 될것 같아서 해는데

내용이 안들어가요

그래서 asstring으로 하면 글씨가 많은내용을 넣으면 ?@##등등 깨져서 나와요



그런데 이상한건

qryTemp:=TQuery.Create(application);

with qryTemp do

begin

DataBaseName:='bbs';

SQL.Clear;

SQL.Add('update freebbs ');

SQL.Add('set writetype=:writetype,writer=:writer,title=:title,subject=:subject, content=:content,created=:created ');

SQL.Add('where bbsno=:bbsno and subno=:subno');

Prepare;

ParamByName('subno').AsFloat:=StrToFloat(subno);

ParamByName('bbsno').AsFloat:=StrToFloat(bbsNo);

ParamByName('created').AsString:=Created;

ParamByName('writetype').AsString:=WriteType;

ParamByName('writer').AsString:=Writer;

ParamByName('title').AsString:=Title;

ParamByName('subject').AsString:=subject;

ParamByName('content').AsMemo:=Content;

ExecSQL;

Close;

Free;

end;

이렇게 하면 asmemo인데도 잘들어가요

이건 이떻게하지요