try
repeat
- context := Pointer( ThreadItemGetLong( inInstance, tipContext ) );
+ context := Pointer( BoardItemGetLong( inInstance, bipContext ) );
if not Assigned( context ) then
Break;
{
ShitarabaJBBSPlugIn
- $Id: ShitarabaJBBSPlugIn.dpr,v 1.46 2008/12/20 04:02:40 h677 Exp $
+ $Id: ShitarabaJBBSPlugIn.dpr,v 1.47 2009/06/22 14:48:31 h677 Exp $
}
uses
MAJOR_VERSION = 1;
MINOR_VERSION = 1;
RELEASE_VERSION = 'alpha';
- REVISION_VERSION = 18;
+ REVISION_VERSION = 19;
SYNCRONIZE_MENU_CAPTION = '\82µ\82½\82ç\82ÎJBBS\94Â\8dX\90V';
uriList := TStringList.Create;
try
ExtractHttpFields( ['/', '?'], [], uri.Path, uriList );
-
+ // http://jbbs.livedoor.jp/computer/23340/
// http://jbbs.livedoor.com/bbs/write.cgi/game/1578/new/
// http://jbbs.livedoor.com/game/1000/subject.txt
postURL :=
'&NAME=' + HttpEncode( SJIStoEUC( inName ) ) +
'&MAIL=' + HttpEncode( SJIStoEUC( inMail ) ) +
'&MESSAGE=' + HttpEncode( SJIStoEUC( inMessage ) ) +
- '&BBS=' + uriList[ 4 ] +
- '&DIR=' + uriList[ 3 ] +
+ '&BBS=' + uriList[ 2 ] +
+ '&DIR=' + uriList[ 1 ] +
'&TIME=' + IntToStr( DateTimeToUnix( Now ) ) +
'&submit=' + HttpEncode( SJIStoEUC( '\90V\8bK\8f\91\82«\8d\9e\82Ý' ) );