Delphi7 de idHTTP1 bileşeninde proxyport yok? neden?

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Kullanıcı avatarı
nitro
Üye
Mesajlar: 1112
Kayıt: 23 Ağu 2004 01:18
Konum: Çanakkale
İletişim:

Delphi7 de idHTTP1 bileşeninde proxyport yok? neden?

Mesaj gönderen nitro »

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?
Kullanıcı avatarı
mussimsek
Admin
Mesajlar: 7604
Kayıt: 10 Haz 2003 12:26
Konum: İstanbul
İletişim:

Mesaj gönderen mussimsek »

Merhaba,

Delphi 7 - Indy 9.0.10

ProxyParams var benim bileşende. Sanırım aradığın şey.

Kolay gelsin.
Kullanıcı avatarı
nitro
Üye
Mesajlar: 1112
Kayıt: 23 Ağu 2004 01:18
Konum: Çanakkale
İletişim:

Mesaj gönderen nitro »

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. :cry:

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.
formda iki adet button, bi tane memo bi de idHTTP var.
Kullanıcı avatarı
mussimsek
Admin
Mesajlar: 7604
Kayıt: 10 Haz 2003 12:26
Konum: İstanbul
İletişim:

Mesaj gönderen mussimsek »

Hocam özelliğin yerini değiştirmişler sadece. Daha önce "idHTTP1.request.proxyport" şeklinde iken, yeni sürümlerde "idHTTP1.proxyParams" yapmışlar.

Kodunu ona göre düzenle.

Kolay gelsin.
Kullanıcı avatarı
nitro
Üye
Mesajlar: 1112
Kayıt: 23 Ağu 2004 01:18
Konum: Çanakkale
İletişim:

Mesaj gönderen nitro »

mustafa abi bi türlü çalışmıyor. bu tür şeylerde minicik hatalar vardır ve insanı çıldırtır. bu onlardan biri. şu kodları delphi7de bi deneyen olursa çok memnun olucam?
saygılarımla
Kullanıcı avatarı
nitro
Üye
Mesajlar: 1112
Kayıt: 23 Ağu 2004 01:18
Konum: Çanakkale
İletişim:

Mesaj gönderen nitro »

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.
Akin_Delphi
Üye
Mesajlar: 163
Kayıt: 06 Nis 2006 12:22

Mesaj gönderen Akin_Delphi »

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.
Merhaba,

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.
Kullanıcı avatarı
nitro
Üye
Mesajlar: 1112
Kayıt: 23 Ağu 2004 01:18
Konum: Çanakkale
İletişim:

Mesaj gönderen nitro »

Akın_Delphi yazdı:Yani isterseniz, mevcut indy'yı uninstall edip, istediğiniz sürümü yükleyebilirsiniz.
bu kısmı daha detaylı anlatabilirseniz sevinirim.
Akin_Delphi
Üye
Mesajlar: 163
Kayıt: 06 Nis 2006 12:22

Mesaj gönderen Akin_Delphi »

nitrokonat yazdı:
Akın_Delphi yazdı:Yani isterseniz, mevcut indy'yı uninstall edip, istediğiniz sürümü yükleyebilirsiniz.
bu kısmı daha detaylı anlatabilirseniz sevinirim.
Merhaba,

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.
Kullanıcı avatarı
nitro
Üye
Mesajlar: 1112
Kayıt: 23 Ağu 2004 01:18
Konum: Çanakkale
İletişim:

Mesaj gönderen nitro »

Akin_Delphi yazdı: Daha sonra Indy bileşenlerini internetten indirip installer'ı ile yükleyiniz.
internetin altını üstüne getirdim bulamadım bu indy 8.0'i.
link varsa bildiğiniz çok sevinirim.
saygılarımla
Kullanıcı avatarı
nitro
Üye
Mesajlar: 1112
Kayıt: 23 Ağu 2004 01:18
Konum: Çanakkale
İletişim:

Mesaj gönderen nitro »

ya olay bu forumdan taştı. ben en iyisi başlığı delphiVCL'e taşıyayım. çünkü artık bu bir bileşen olayı oldu. saygılarımla.
Cevapla