Steam~
20.08.2011, 17:37
procedure TForm1.Button14Click(Sender: TObject);
begin
data:=tstringlist.Create;
try
s26:=id[Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]'+Edit3.Text+'.darkorbit.bigpoint.com/indexInternal.es?action=internalSkylab');
data.Add('action=internalSkylab');
data.Add('subaction=startTransport');
data.Add('target=ship');
data.Add('mode=normal');
data.Add('construction=TRANSPORT_MODULE');
data.Add('count_prometium='+Edit4.Text);
data.Add('count_endurium='+Edit5.Text);
data.Add('count_terbium='+Edit6.Text);
data.Add('count_prometid='+Edit7.Text);
data.Add('count_duranium='+Edit8.Text);
data.Add('count_xenomit=0');
data.Add('count_promerium='+Edit10.Text);
data.Add('count_seprom='+Edit11.Text);
s27:=id[Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]'+Edit3.Text+'.darkorbit.bigpoint.com/indexInternal.es?action=internalSkylab',data);
Panel1.Visible:=false;
finally
data.Free;
end;
ошибок нету , но когда отправляю пост запрос , ничего не происходит(
begin
data:=tstringlist.Create;
try
s26:=id[Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]'+Edit3.Text+'.darkorbit.bigpoint.com/indexInternal.es?action=internalSkylab');
data.Add('action=internalSkylab');
data.Add('subaction=startTransport');
data.Add('target=ship');
data.Add('mode=normal');
data.Add('construction=TRANSPORT_MODULE');
data.Add('count_prometium='+Edit4.Text);
data.Add('count_endurium='+Edit5.Text);
data.Add('count_terbium='+Edit6.Text);
data.Add('count_prometid='+Edit7.Text);
data.Add('count_duranium='+Edit8.Text);
data.Add('count_xenomit=0');
data.Add('count_promerium='+Edit10.Text);
data.Add('count_seprom='+Edit11.Text);
s27:=id[Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]'+Edit3.Text+'.darkorbit.bigpoint.com/indexInternal.es?action=internalSkylab',data);
Panel1.Visible:=false;
finally
data.Free;
end;
ошибок нету , но когда отправляю пост запрос , ничего не происходит(