Trzybobry!
Ponizej kod po nacisnieciu batona. Kompiluje sie bez bledow, ale po probie laczenia (laczy sie, bo firewall sie pyta czy pozwolic) wywala blad jak temacie. Co ***de robic??
procedure TMainFrm.xpButton1Click(Sender: TObject);
var
Snd: TStringStream;
begin
Snd:= TStringStream.Create('');
try
Body.Text:=StringReplace(Body.Text,'','+',[rfReplaceAll]);
// blad byl ponizej bez przecinkow oraz dodac trzeba bylo &
Snd.WriteString(Format('do=%s,temat=%s,Tresc=%s,Submit=Submit',[Odbiorca.Text,Temat.Text,Body.Text]));
try
HTTP.Get('http://www.xxxx.xxxx.xx/i-mail.php',Snd); //[cenzura]
except
MessageBox(0,'Wystąpił jakiś błąd!','Błąd!',MB_OK+MB_ICONWARNING);
end;
finally
Snd.Free;
HTTP.Disconnect;
end;
end;
HELP!!
DOPISANE
HTTP - Indy
.Post tez daje ten blad