طريقة ارسال بيانات لصفحة ويب Asp من دلفي عن طريق Post

استخدم من مكونات Indy Client المكون IdHTTP

وفيه دالة تأخذ المتغيرات الاستمارة form على شكل TStringList وترسلها إلى السيرفر (الموقع) اسمها post

ضع المكون IdHTTP وسميه HTTP

function Post(AURL: string; const ASource: TStrings): string
;

انظر إلى هذا المثال وهو حدث النقر على button وسميته btnSubmit

procedure TfrmSubmit.btnSubmitClick(Sender: TObject);
var PostData : TStringList;
begin //
  Try
	PostData := TStringList.Create;
	if length(BoxTopics.Text) = 0 Then Exit
	else PostData.Append('topicid='+Topicid);
	if length(BoxCats.Text) = 0 Then Exit
	else PostData.Append('catid='+catid);
	if length(EditSubject.Text) < 10 Then Exit
	else PostData.Append('subject='+EditSubject.Text);
	if length(EditAuther.Text) < 10 Then {Exit}
	else PostData.Append('auther='+EditAuther.Text);
	if length(EditKeyWords.Text) < 10 Then {Exit}
	else PostData.Append('keyword='+EditKeyWords.Text);
	if length(memo.Lines.GetText) < 30 Then Exit
	else PostData.Append('text='+memo.Lines.GetText);
	if length(EditLinkImg.Text) < 5 Then {Exit}
	else PostData.Append('img='+EditLinkImg.Text);
	PostData.Append('ActionName=articles.add');
	Try
	  S := http.Post('http://localhost/lib/delphi.php',PostData);
	  memo.Lines.Append(S);
	except
	end;
  finally
	PostData.Free;
  end;
	btnSubmit.Enabled := False;
end;