Delphi7 de idHTTP1 bileşeninde proxyport yok? neden?
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
Delphi7 de idHTTP1 bileşeninde proxyport yok? neden?
merhaba forma yerleştirdiğim idHTTP bileşeninde proxyport yok. delphi6da var da delphi 7 de niye yok?
delphi7demi yok yoksa benim delphi7de mi bi sorun var?
delphi 7 kullanan arkadaşlar forma bi idHTTP koysunlar, propertiesde request altında proxyport diye bişey varmı diye bi kontrol etsinler lütfen?
delphi7demi yok yoksa benim delphi7de mi bi sorun var?
delphi 7 kullanan arkadaşlar forma bi idHTTP koysunlar, propertiesde request altında proxyport diye bişey varmı diye bi kontrol etsinler lütfen?
mustafa abi bu indy 9.0.10 delphi7 ile birlikte mi geliyor yoksa ayriyetten yüklüyomusun? aşağıdaki kod delphi 6 da çalışıyor, delphi 7 de çalışmıyor. 1 haftadır nedenini çözemedim.
formda iki adet button, bi tane memo bi de idHTTP var.

Kod: Tümünü seç
unit sms_gonder;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdHTTP;
type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
IdHTTP1: TIdHTTP;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
Var aStream: TStringStream;
Params: TStringList;
str:String;
begin
aStream := TSTringStream.Create('');
Params := TStringList.create;
idHTTP1.Request.ContentType := 'application/x-www-form-urlencoded';
try
with idHTTP1 do begin
try
str:='';
str:='<?xml version="1.0" encoding="iso-8859-9" ?>';
str:=str+'<message-context type="smmgsd" >';
str:=str+'<username>';
str:=str+'xxx';
str:=str+'</username>';
str:=str+'<password>';
str:=str+'xxx';
str:=str+'</password>';
str:=str+'<outbox-name>';
str:=str+'VADI';
str:=str+'</outbox-name>';
str:=str+'<reference>';
//str:=str+'0';
str:=str+'</reference>';
str:=str+'<start-date>';
str:=str+'</start-date>';
str:=str+'<expire-date>';
//str:=str+'m3';
str:=str+'</expire-date>';
str:=str+'<message-type>';
str:=str+'0';
str:=str+'</message-type>';
//str:=str+'<message-header>';
//str:=str+'</message-header>';
str:=str+'<text>';
str:=str+'bu bir denemedir';
str:=str+'</text>';
str:=str+'<gsmnos>';
str:=str+'905354579353';
str:=str+'</gsmnos>';
str:=str+'</message-context>';
params.text:=str;
idHTTP1.Post('http://www.biotekno.biz:8080/SMS-Web/xmlsms',Params,aStream);
memo1.Text:= astream.DataString;
memo1.Lines.Add(idHTTP1.ResponseText);
except
on E: Exception do
showmessage('Error encountered during POST: ' + E.Message);
end;
end;
except
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;
end.
-
- Üye
- Mesajlar: 163
- Kayıt: 06 Nis 2006 12:22
Merhaba,nitrokonat yazdı:ya hiç bi kod bu kadar canımı sıkmamıştı. ne illet bişedir. sırf bu yüzden canım delphi 7yi silip delphi 6 kuracam.
D2005'te baktım: Indy 10.0.20 yüklü. Dediğiniz ayar Proxyparams (ve altında proxyport) olarak geçiyor. D5.1'de baktım: 8.0.22 yüklü. Request altında listelenmiş durumda. Yani isterseniz, mevcut indy'yı uninstall edip, istediğiniz sürümü yükleyebilirsiniz.
Bu şekilde problemleriniz ortadan kalkar.
Saygılar ve Başarılar.
-
- Üye
- Mesajlar: 163
- Kayıt: 06 Nis 2006 12:22
Merhaba,nitrokonat yazdı:bu kısmı daha detaylı anlatabilirseniz sevinirim.Akın_Delphi yazdı:Yani isterseniz, mevcut indy'yı uninstall edip, istediğiniz sürümü yükleyebilirsiniz.
D5.1'de Component -> Install Package menüsünü seçiyorsunuz, daha sonra oradan ilgili bileşen paketini seçip remove düğmesine tıklıyorsunuz.
D2005'te de aynı yöntemi kullanabilirsiniz. Ancak diğer yandan environment options ve options'tan ilgili path parametrelerini çıkarmanız, ve mümkünse en azından ilgili bileşen/paket dosyalarını taşımanız gerekebilir.
Daha sonra Indy bileşenlerini internetten indirip installer'ı ile yükleyiniz. Bunu neden söylüyorum. Ben en fazla Indy'nin 8.0.23 versiyonunu seviyor ve kullanıyorum. Bu benim kişisel tercihim sizi yanlış yönlendirmek istemem.
Başarılar ve Saygılar.