Отправка, через разделитель

[V1rt1L3R]

Ув. пользователи сайта, кто знает как реализовать отправку сообщений формата:
Допустим я вставил текст в мемо:

сообщение 1
*****
сообщение 2
*****
сообщение 3
ну и т.д. что бы когда программа доходит до разделителя ****, то программа начинает писать новое сообщение с текстом "сообщение 2" ну и т.д. С меня +
Заранее, благодарю

[Number/1/]

Цитата: Сообщение от V1rt1L3R Ув. пользователи сайта, кто знает как реализовать отправку сообщений формата: Допустим я вставил текст в мемо: сообщение 1 ***** сообщение 2 ***** сообщение 3 ну и т.д. что бы когда программа доходит до разделителя ****, то программа начинает писать новое сообщение с текстом "сообщение 2" ну и т.д. С меня + Заранее, благодарю

var i:integer;
...
begin
...
for i:= 0 to memo1.lines.count -1 do
if memo1.lines[i]='*****' then создание нового сообщения
end;
как то так

[V1rt1L3R]

Нужно сюда впихнуть как-то ) Причем сообщение может быть размером не в одну строчку

Цитата: procedure TForm1.Timer1Timer(Sender: TObject); var post: TStringList; s: string; begin Timer1.Interval:=60000; //интервал времени в 60 секунд idHTTP1.AllowCookies:= true; IdHTTP1.HandleRedirects:=True; IdHTTP1.Request.ContentType:='application/x-www-form-urlencoded'; IdHTTP1.Request.UserAgent:='Mozilla/5.0 (Windows NT 6.1; rv:9.0.1) Gecko/20100101 Firefox/9.0.1'; post:=TStringList.Create; try // Параметры Отправки сообщения post.Add('whats-new='+Memo1.Text); post.Add('submit=Опубликовать'); post.Add('whats-new-post-object=groups'); post.Add('whats-new-post-in=54'); post.Add('_wpnonce_post_update=5203aa5694'); post.Add('_wp_http_referer='+Edit1.Text+'groups/mir-anegdotov/'); // Отправляем данные s:=IdHTTP1.post(Edit1.Text+'activity/post/', post); except post.Free; end; end;

[Number/1/]

Цитата: Сообщение от V1rt1L3R Нужно сюда впихнуть как-то ) Причем сообщение может быть размером не в одну строчку Цитата: procedure TForm1.Timer1Timer(Sender: TObject); var post: TStringList; s: string; begin Timer1.Interval:=60000; //интервал времени в 60 секунд idHTTP1.AllowCookies:= true; IdHTTP1.HandleRedirects:=True; IdHTTP1.Request.ContentType:='application/x-www-form-urlencoded'; IdHTTP1.Request.UserAgent:='Mozilla/5.0 (Windows NT 6.1; rv:9.0.1) Gecko/20100101 Firefox/9.0.1'; post:=TStringList.Create; try // Параметры Отправки сообщения post.Add('whats-new='+Memo1.Text); post.Add('submit=Опубликовать'); post.Add('whats-new-post-object=groups'); post.Add('whats-new-post-in=54'); post.Add('_wpnonce_post_update=5203aa5694'); post.Add('_wp_http_referer='+Edit1.Text+'groups/mir-anegdotov/'); // Отправляем данные s:=IdHTTP1.post(Edit1.Text+'activity/post/', post); except post.Free; end; end;

лучше добавляй из мемо определённый кусок куданибудь и это куданибудь используй в своём коде

[V1rt1L3R]

В смысле? Когда доходит до звездочек оно отправляет текст допустим в мемо2 и из мемо два уже отправляет на сайт, а потом снова из мемо один сообщение копируется в мемо2 стирается старое и вставляется новое и т.д.?

[VeTaL_UA]

IdCookieManager на форму кинь и:

procedure blabla;
var
post:TStringList;
s,m:string;
i:integer;
HTTP:TIdHTTP;
Cookie:TIdCookieManager;
begin
HTTP:=TIdHTTP.Create(nil);
Cookie:=TSdCookieManager.Create(HTTP);
HTTP.AllowCookies:=True;
HTTP.CookieManager:=Cookie;
HTTP.HandleRedirects:=True;
HTTP.Request.ContentType:='application/x-www-form-urlencoded';
HTTP.Request.UserAgent:='Mozilla/5.0 (Windows NT 6.1; rv:9.0.1) Gecko/20100101 Firefox/9.0.1';
 try
  for i:=0 to Memo.Lines.Count-1 do
   begin
    if Memo.Lines[i]:='***' then
     begin
     post:=TStringList.Create;
     post.Add('whats-new='+m); 
     post.Add('submit=Опубликовать');
     post.Add('whats-new-post-object=groups');
     post.Add('whats-new-post-in=54');
     post.Add('_wpnonce_post_update=5203aa5694');  
     post.Add('_wp_http_referer='+Edit1.Text+'groups/mir-anegdotov/');
     s:=HTTP.Post(Edit1.Text+'activity/post/',post);
     Cookie.Free;
     end
    else
     begin
     m:=m+Memo1.Lines[i];
     end;
 finally
 HTTP.Free;
 end;
end;