Dll ile post işlemi yapmak istiyorum.

[Shou]

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?

[mrmarman]

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.

[Shou]

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