Kod: Tümünü seç
var
ovElements: OleVariant;
i: Integer;
SAYFA : variant;
begin
try begin
w.Navigate( 'http://www.xxx.com/index.php' );
While w.ReadyState <> READYSTATE_COMPLETE do Application.ProcessMessages;
// burası
w.OleObject.Document.GetElementByID('kayitgelsin').Value :=edit1.text;
w.OleObject.Document.GetElementByID('textgelsin').Value :=memo1.text;
ovElements := W.OleObject.Document.forms.item(0).elements;
for i := 0 to (ovElements.Length - 1) do
if (ovElements.item(i).tagName = 'INPUT') and
(ovElements.item(i).type = 'submit') and
(ovElements.item(i).Value = 'Gonder') then
ovElements.item(i).Click;
Application.ProcessMessages;end; except end;
end;
Aslında idhttp1.post komutunu kullanmak istiyorum fakat işe yaramıyor nedense, yukardaki kayitgelsin sabiti dosya adını belirtiyor.Bu işlemi post komutuyla gerçekleştirdiğimde php kodu hata vererek dosya oluşturulamadı diyor.