🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: pl.comp.lang.pascal
Article #92537

Re: [Lazarus][OT] TCurl niestety jeszcze nie naprawiony :(

#92537
From: Terrmit
Date: Sun, 06 Apr 2008 15:49
37 lines
2842 bytes
Witam,

Nie no wymiękam już :(
Chyba zaczynam rozumieć dlaczego moduł curlpas został porzucony.
Wszystko pięknie działało, a teraz muszę wysłać formularz,
taki dość duży, a w tym plik graficzny. Metoda POST.
Użyłem więc funkcji TCurl.FormData.Add. Za pierwszym razem
poszło, nawet obrazek się uploadował (co za słowo :)).
Niestety za chwilę znów program zaczął mi się wywalać
na tej bibliotece, chociaż nic nie zmieniałem. Magia jakaś.
Wykrzacza się na tej funkcji, co chodzi w wątku:
   function CurlThreadExecute(o:pointer):LongInt; cdecl;
   begin
     with TCurl(o) do begin
       fThdResult:=curl_easy_perform(fCurl); //tu wskazuje błąd
       fBusy:=False;
     end;
     Result:=0;
   end;

Kombinuję z tym od kilku godzin. Nic nie pomaga i nie
mogę dojść w czym rzecz :(

Jak używam TCurl.PostFields do formularza, to idzie,
ale tym się chyba nie da grafiki przesłać. Elementy
formularza dodaję z separatorem '&':
MyCurl.PostFields := 'nazwa1=wartosc1&nazwa2=wartosc2&nazwa3=wartosc3';
Ktoś wie jak w ten sposób dołączyć grafikę?
Gdzieś wyczytałem, żeby dodać małpkę '@' przed nazwą pliku,
w ten sposób:
MyCurl.PostFields := 'nazwa1=wartosc1&nazwa2=wartosc2&nazwa3=wartosc3'+
                      '&'+'@'+'/home/slawek/katalog/plik.gif';
Ale w ten sposób też nie udało mi się załadować obrazka,
chociaż reszta formularza weszła na serwer i program się
nie wywalił.

Sławek :(
Technical Details
Message-ID: <ftargs$cn7$1@atlantis.news.neostrada.pl>
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!newsfeed.gazeta.pl!news.onet.pl!newsfeed.tpinternet.pl!newsfeed.neostrada.pl!atlantis.news.neostrada.pl!news.neostrada.pl!news.tpi.pl!not-for-mail
References: <fssr03$k01$1@atlantis.news.neostrada.pl> <fst2ug$gd3$1@nemesis.news.neostrada.pl> <fstdsc$lcb$1@atlantis.news.neostrada.pl> <ft0tt2$lih$1@atlantis.news.neostrada.pl> <ft1pbr$j$1@atlantis.news.neostrada.pl> <ft2rdj$h4m$1@atlantis.news.neostrada.pl> <ft2ren$h4m$2@atlantis.news.neostrada.pl> <ft2rss$p5g$1@news.dialog.net.pl> <ft4in8$mu0$1@atlantis.news.neostrada.pl> <ft5gmq$c5f$1@news.dialog.net.pl> <ft627f$s2s$1@atlantis.news.neostrada.pl>

Show Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!newsfeed.gazeta.pl!news.onet.pl!newsfeed.tpinternet.pl!newsfeed.neostrada.pl!atlantis.news.neostrada.pl!news.neostrada.pl!news.tpi.pl!not-for-mail
From: Terrmit <terrmitv@poczta.onet.pl>
Newsgroups: pl.comp.lang.pascal
Subject: Re: [Lazarus][OT] TCurl niestety jeszcze nie naprawiony :(
Date: Sun, 06 Apr 2008 17:49:32 +0200
Organization: TP - http://www.tp.pl/
Lines: 37
Message-ID: <ftargs$cn7$1@atlantis.news.neostrada.pl>
References: <fssr03$k01$1@atlantis.news.neostrada.pl> <fst2ug$gd3$1@nemesis.news.neostrada.pl> <fstdsc$lcb$1@atlantis.news.neostrada.pl> <ft0tt2$lih$1@atlantis.news.neostrada.pl> <ft1pbr$j$1@atlantis.news.neostrada.pl> <ft2rdj$h4m$1@atlantis.news.neostrada.pl> <ft2ren$h4m$2@atlantis.news.neostrada.pl> <ft2rss$p5g$1@news.dialog.net.pl> <ft4in8$mu0$1@atlantis.news.neostrada.pl> <ft5gmq$c5f$1@news.dialog.net.pl> <ft627f$s2s$1@atlantis.news.neostrada.pl>
NNTP-Posting-Host: fge166.internetdsl.tpnet.pl
Mime-Version: 1.0
X-Trace: atlantis.news.neostrada.pl 1207497052 13031 83.13.160.166 (6 Apr 2008 15:50:52 GMT)
X-Complaints-To: usenet@tpi.pl
NNTP-Posting-Date: Sun, 6 Apr 2008 15:50:52 +0000 (UTC)
User-Agent: Thunderbird 2.0.0.12 (X11/20080226)
In-Reply-To: <ft627f$s2s$1@atlantis.news.neostrada.pl>
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit