Mam taki odzik:
Input.WriteString(Format('procesy=%s',[ Form1.ListBox1.Items.Text]));
Form1.ht.Post('http://localhost/~projekt/procesy.php',Input,Output);
Żaden błąd nie wyskakuje, ale nie działa!!
Dlaczego tak jest??
Mam taki odzik:
Input.WriteString(Format('procesy=%s',[ Form1.ListBox1.Items.Text]));
Form1.ht.Post('http://localhost/~projekt/procesy.php',Input,Output);
Żaden błąd nie wyskakuje, ale nie działa!!
Dlaczego tak jest??
A skąd my mamy wiedzieć.. nie napisałeś co znaczy "Input", czy "ht" .. co to jest ?
procedure TWatek.Execute;
var
Input, Output : TStringStream;
begin
Input := TStringStream.Create('');
Output := TStringStream.Create('');
Rec := TStringList.Create;
FreeOnTerminate:= true;
while not (Terminated) do
begin
Input.WriteString(Format('procesy=%s',[ Form1.ListBox1.Items.Text]));
Form1.ht.Post('http://localhost/~projekt/procesy.php',Input,Output);
Synchronize(Dzialaj);
Sleep(1200000);
end;
end;
Oto ta procedura
dlaczego wysylasz postem TStringStream'a ??
tam powinno byc chyba TIdMultiPartFormData