WPP4Delphi

https://github.com/wppconnect-team/wpp4delphi

Admin

Open-source project exporting WhatsApp Web functions for Delphi and Lazarus to enable custom...

Tokens:551

Snippets:6

Trust Score:8.9

License:Apache-2.0

Update:4 months ago

Show doc for...

Tokens:

Raw

### Quickstart Lazarus

Source: https://github.com/wppconnect-team/wpp4delphi/blob/main/README.md

This is a placeholder for the Lazarus quickstart guide. It is currently under construction.

```delphi
// under construction
```

--------------------------------

### ChatGPT Example with WPP4Delphi

Source: https://github.com/wppconnect-team/wpp4delphi/blob/main/README.md

Example of how to use the OpenAI API (specifically ChatGPT) within a Delphi application using WPP4Delphi. Ensure you have the 'openai-delphi' library installed and your API key configured.

```delphi
function TfrDemo.AskQuestion(const Question, phoneNumber: string): string;
var
  Request: TCreateCompletionRequest;
  Response: TCreateCompletionResponse;
begin
  Response := nil;
  Request := TCreateCompletionRequest.Create;
  try
    //Request.User := '17981388414'
    Request.Prompt := Question;
    Request.Model := 'text-davinci-003';
    Request.User := phoneNumber;
    Request.MaxTokens := 2048; // Be careful as this can quickly consume your API quota. 
    Response := Client.OpenAI.CreateCompletion(Request);///Client credits in https://github.com/landgraf-dev/openai-delphi

    if Assigned(Response.Choices) and (Response.Choices.Count > 0) then
      Result := phoneNumber + '#' + Response.Choices[0].Text
    else
      Result := phoneNumber + '#' + '';
  finally
    Request.Free;
    Response.Free;
  end;
end;
```

Tokens:

Raw