Darkorbit

[borum]

не могу отправить ресы.
procedure TForm1.Button13Click(Sender: TObject);
var s1,s2,s3,s4:string;
Data: TStringList;
begin
Id[Ссылки могут видеть только зарегистрированные и активированные пользователи](nil);
Id[Ссылки могут видеть только зарегистрированные и активированные пользователи]
Id[Ссылки могут видеть только зарегистрированные и активированные пользователи]
Id[Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]');
//Сброс на кор (Работает)
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=5');
data.Add('count_endurium=5');
data.Add('count_terbium=5');
Id[Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]', data);
end;

вот код, пытаюсь послать ресы, вылетает дебаг.
Помогте с сорцом отправки ресов.

[Warning] Unit2.pas(170): Variable 'Data' might not have been initialized как бы вот такое предупреждение выскакивает

[doctor_flasher]

1) если делаешь create, то в конце Free надо.
2) Судя по названию, ты бросил idhttp на форму. Так вот в таком случае create не надо
3) скорее всего ошибка возникает из-за нестандартного ответа сервера (ну какую-либо ошибку возвращает. Например, 302). Учись использовать Try Except End; и погугли на тему обработки ошибок.

[PseudoDog]

перед data.Add('action=internalSkylab');
надо вставить data := TstringList.Create;