Şöyle bir problemle karşılaştım arkadaşlar, kendim ne kadar uğraştıysam 'da tam bir çözüm bulamadım.
Yapmak istediğim : Dosya.txt içeriği Memo1.LoadFromFile İle çekip,idHTTP ile servera göndermek istiyorum.
Burada Dosya.txt içeriği çok az olursa problem yok,ama > 1 mb.den daha fazla olursa programa postalama yapmıyor,ve donuyor .
Kod:
Kod: Tümünü seç
procedure TForm1.FormCreate(Sender: TObject);
Var
post: TStringList;
ResponseCode: Integer;
S: String;
begin
try
S := 'C:\Deneme.txt';
Memo1.Lines.LoadFromFile(S);
except
begin
// Veya Dosya.txt > 1 mb den, sil
DeleteFile(S);
// Kod okumayı kes
Exit;
end;
end;
try
post := TStringList.Create;
post.Add('message=' + Memo1.Text);
IdHTTP1.post('http://localhost/default.asp', post);
ResponseCode := IdHTTP1.ResponseCode;
if ResponseCode = 200 then
begin
// Gönderme başarlı ise,Memo icerigi sil
Memo1.Clear;
// Ve kayit et
Memo1.Lines.SaveToFile(S);
end
else
begin
// Kod okumayi kes
end;
except
end;
end;
