Dll ile post işlemi yapmak istiyorum.

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Kullanıcı avatarı
Shou
Üye
Mesajlar: 260
Kayıt: 26 Ağu 2011 01:00

Dll ile post işlemi yapmak istiyorum.

Mesaj gönderen Shou » 15 Nis 2015 11:48

Merhaba arkadaşlar bir sorunum var şimdi form'da idhttp koyarak post işlemi yapıyoruz ya ben bunu dll içinde yapmak istiyorum uses kısmına idhttp koydum ama post işlemi kısmını yapamadım googleda araştırdım birşey göremedim yardımcı olursanız sevinirim misal ben post işlemi derken http://www.google.com 20 dakikada gir girsin istiyorum örneğinden yardımcı olursanız sevinirim.

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
str:tstringlist;
begin
str := TStringList.Create;
str.Clear;
str.Add('veli=ahmet');
veri:=md_5(memo4.text+'dede');
try
memo4.text:=idhttp1.Post('http://localhost/test.php?kod='+veri+',str);
except
end;
end;
Şimdi burada memo4 olmadığı için ben veriyi string'e kaydedicem ve str kısmı TStringList ' i nasıl çalıştırıcam dll de uses kısmına ne yazmam gerekıyor birisi örnek bir kod verirse buna benzer normal form'da yaptımda dll de çalıştıramadım?

Kullanıcı avatarı
mrmarman
Üye
Mesajlar: 4731
Kayıt: 09 Ara 2003 08:13
Konum: Ankara
İletişim:

Re: Dll ile post işlemi yapmak istiyorum.

Mesaj gönderen mrmarman » 16 Nis 2015 12:50

Merhaba.

DLL yapmadan önce yapısal olarak DLL nedir olayını bir araştırırsanız iyi olur. Neden DLL ihtiyacınız olduğunu bilmiyorum, bu söylediğiniz kısım için önce normal projenizi tamamlayıp, ondan sonra hala DLL ihtiyacı var ise procedure / function yapılarını DLL'ye dönüştürmesi kolaydır.

DLL olsun normal VCL olsun TStringList için USES olarak Classes altında yer alıyor. Sadece merak ettiğiniz buysa tabii.

Yapmak istediğinizi anlamadım ama aşağıdaki benzeri bir şeyi deneyebilirsiniz. İçeriği deneme fırsatım olmadı, olduğu gibi copy/paste yaparak yapısal hali göstermek istedim.

Kod: Tümünü seç

uses
  ShareMem,
  SysUtils,
  Classes,
  IdHttp;

{$R *.res}

function GoogleGir( strVeri : String ): string; stdCall;
var
  str  : tstringlist;
  veri : string;
begin
  str := TStringList.Create;
  str.Clear;
  str.Add('veli=ahmet');
  veri := md_5(strVeri+'dede');
  try
    With TIdHttp.Create(nil) do
    begin
      Result := Post('http://localhost/test.php?kod='+veri, str);
      Free;
    end;
  except
    //...
  end;
  str.Free;
end;

Exports GoogleGir;

begin
end.
Resim Resim

Kullanıcı avatarı
Shou
Üye
Mesajlar: 260
Kayıt: 26 Ağu 2011 01:00

Re: Dll ile post işlemi yapmak istiyorum.

Mesaj gönderen Shou » 16 Nis 2015 11:08

Teşekkür ederim bu çalışıyor istediğim buydu :)

Cevapla