Показать сообщение отдельно

  #3  
Старый 12.04.2010, 14:25
@leks@
Новичок
Регистрация: 28.11.2009
Сообщений: 3
Провел на форуме:
6531

Репутация: 0
По умолчанию

поиск дал результат...
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
  str,Data:TStringList;
  ms: TMemoryStream;
begin
  str:=TStringList.Create;
  ms := TMemoryStream.Create;
  str.Add('referer=');
  str.Add('UserName=user');
  str.Add('PassWord=123456');
  str.Add('tst=');
  str.Add('CookieDate=1');
  try
    IdHTTP1.Post('http://forum.buhgalter.kz/index.php?act=Login&CODE=01', str, ms);
    ms.Position := 0;
    Memo1.Lines.LoadFromStream(ms);
  Data.Add('entered_name=sono');
  Data.Add('msg_title=ntvf');
  Data.Add('Post=nnttrrccnn');
  IdHTTP1.Post('http://forum.buhgalter.kz/index.php?act=msg', Data);
  finally
    ms.Free; str.Free;
  end;
  end;
Теперь стоит задача чтоб отправить личное сообщения пользователю

Код:
http://forum.buhgalter.kz/index.php?act=Msg&CODE=4&MID=10442
POS
Код:
http://forum.buhgalter.kz/index.php?act=msg
removeattachid     0                                                       
OID                0                                                       
act                Msg                                                     
CODE               04                                                      
MODE               01                                                      
attach_post_key    3230bccc89b5ab64097991c2179594a9                        
auth_key           4187a5b6b0a6a229563004f485550342                        
MAX_FILE_SIZE      512000                                                  
entered_name       Sono                                                    
carbon_copy                                                                
msg_title          тема                                                    
ed-0_wysiwyg_used  0                                                       
editor_ids[]       ed-0                                                    
Post               текст
откуда беруться
Код:
attach_post_key    3230bccc89b5ab64097991c2179594a9                        
auth_key           4187a5b6b0a6a229563004f485550342
 
Ответить с цитированием